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LABEL O0OOO0000PRINTEKU0175100CC LX Qb JLCT/REaU;F UE SGURCEF ILE*5Y MBUL'T SLUMP*-* 
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COMMENTS * TITLEJ B5500/B5700 MARK XIV SYSTEM RELEASE * OOOOOOOl 

* FILE 10* SYMRUL/T3DUMI 3 TaPE II): SYMdQLZ/F ILEOOO * 00000002 

* THTS MATFR l A l TS PROPR I ETARY Tfl flU HR Quu H. S r . f iRP H R AT T D N * nnontinn* 



* ANO IS NOT TO BE REPRODUCED' USED* OR OlSCLUSED 

* EXCEPT In ACCORDANCE WITH PROGRAM LICENSE OR UPON 

* WRITTEN AUTHHRIZaTION OF THE PaTFNT DIVISION HF 



* 
* 
* 



BURROUGHS CORPORATION* QETRQI T* -.MICHIGAN 48232 
CQPYRTGHT CO 1971. 19/2 BURROUGHS CORPORATION 



00000004 
00000005 
0000000ft 



* 
* 



* AA3202C6 



AA332366 AA386657 

TSOUMP/ANALYZE 

LAST PATCHED lg/ 11/73 



Q00U0QQ7 
00000008 
0Q0 QQ Q9 



*; 



SEVERAL OPTIONS ARE AVAILABLE FOR CLNTROLLlNG THE ANALYSIS 
OF. A. MEMORY DUMP. THEY MAY BE CLASSIFIED IMQ FOUR CATEGORIES: 



00000010 
00000012 
00000013 



I. THOSE WHICH SPECIFY THE FORMAT OF THE PRINTOUT OF MEMORY! 

SPLASH DUMP*0cTaL DUMP* ALPHA/OCTAL DUMP, OR aLPHa DUMP; 

EITHER STNfUY OR DOUBLY .SPACED. 



00000015 
00000020 
Q 0O002 5 



00000030 
00000040 
000(10050 



II. THOSE .WHICH INCLUDE 
INCLUDED IjR EXCLUDED? 



OR EXCLUDE AREm.S Uf MEMORY NOT OTHERWISE 



t. INCLUSION OF AVAILABLE AREAS* 
A. WHETHER ACTIVE OR INACTIVE. 
-B-. ONI Y TF ATTIVF. 



000u005'j 
0Q0C006C 
00 00,70, 



2. EXCLUSION OF? 
A. MCP CODE AREAS. 
-&• NORM AI . STATE CO D E A HE a S . 



00000080 
00000090 
nnoooinn 



C. NORMAL STATE AREAS OTHER THAN THOSE 
SPCECIFIC MIX INDEX WHERE THE MIX INDEX 



RELATING TO ONE 
IS SPECIFIED 8Y 



ooouoiic 

00U00120 
000001.3C. 



THE USER, 



in. those which cause omission of certain sections Of analysis: 

1. OMISSION OF THE PRINTOUT OF MCP PRT .IDENTIFIERS* SORTED 



00000140 
00000150 
00000158 



ALPHABFTICALLY ANn BY PRT LOCAflbN 



2. OMISSION OF THE DUMPING OF ABRAfS USED BY THE LINE 
MAINTENANCE(OATACOM) PROCEDURES. 



0000016C 
00000170 



Iv THOSE WHICH CONTROL Jhi DUMPING OF STACKS: 
If EXCLUSION OF ALL NORMAL STATE STACKS EXCEPTING THE ONE 
BE LONGING LQ T HF SAMF Mix InDEX AS THF UNE SPFCIFIF.C BY THF USER 
2. INCLUSION OF A USER SELECTED "STACK" AREA W h ICH THE 
ANALYZER WOULD BE UNABLE TO LOCATE aItHQUT THE USERS ASSISTANCE. 



00000190 
00000200 
00000305 



0C000210 
O0UUO22U 

00000230 



THE MAJORITY OF OPTIONS MAY BE SEy USING A COMMON CONTROL 

caRd; a few m a y be set only via the "IN" message to alter the 

CONTENTS OF CERTAIN PRT Ct f M-S WHICH HAVE BEEN RESERVED FOR 



00000240 
00000250 
OOQQQg'v'v 



CONTROL FUNCTIONS 

THE COMMON COTROL CARD TS ASSUMED TO CONTAIN AN EIGHT DIGIT 



00000260 
00000270 
00000280 



NLMBER--IF LESS THAN EIGHT APPEAR* LEADING HEROES ARE 
AUTOMATICALLY SUPPLIED. THE ANALYZER SEPARATES THE Q DIGITS INTO 
TfrO GROUPS? , 



00000290 

00000295 
00000360 



00000310 
00000320 
00000330 



A. THE 5 LEFT-MOST OIGITS ARE EXPECTED TO BE *0CTAL* DIGITS 
WHICH REPRESENT THE TQP-QF-STACK ADDRESS OF THE USER SPECIFIED 



"STACK" AREA. IF ANY DIGIT EXCEEDS "7" OR IF ALL FIVE ARE "0"* 
ONLY STACKS LOCATED BY THE ANALYSER WILL BE OUMPED. OTHERWISE* 
ONE ADDITIONAL "S TACK", PROVIDING IT' ALREADY HAS NOT BEEN DUMPED* 



00000335 
00000340 
00000350 



WILL. BE OUMPED STARTING AT THIS ADDRESS ANO CONTINUING UNTIL 
200CDECIMAL) WORDS BELOW IT HAVE BEEN PRINTEDC THE STACK IS 
ASSUMED TO BE A CONTROL STATE STACK FQR PURPOSES QF STACK 



00000360 

00000370 
00000380 



00000390 
00000400 
00000410 



46 



52 
53 



ANALYSIS). SHOULD MCRE OR LESb STACK BE DESIRED' THE AMOUNT 00000420 

( IN DECIMAL) OF STACK TO ANALYZE CaN BE ENTEREL INTO PRT CELL OOOU0430 

)? T — 2 7C CT AL ) US I NG TH E "IN" MESS A G E. , QOOQ{U35 

IN MOST CASES, THE TGP-OF-STACK VALUE USED MAY BE THE SETTING 00000440 

OF THE W S" REGISTER TAKEN FROM THE QISPlAy PANEL AT THE TIME 00000445 

QF THF HANGt IF an TnP-nr-ST ack IS SPFdFrrn the a^ai v?fr «i\ \ npT_im nnooO-sn 

ONE FROM THE CONTROL STATE MSCW LOCATED IN CELL 7 , THE STACK 000u045l 

OBTAINED IN THIS MANNER IS GENERALLY OF INTEREST' ESPECIALLY WHEN 00000452 

LINKS HAV E g)EEN C L OBBER ED. QQ00Q<|53 



00000455 
B. THE RIGHT-MOST 3 DIGITS ARE INTERPRETED AS DECIMAL OIGITS 00000460 

A ND SERVE TO SET THE M A JOR I TY OF __!__£_ O PTIONS , G ENER A LLY QQ0004 70 - 

SPEAKING* THESE OPTIONS ARE INTEGRA, POWERS OF c» ARE INDEPENDENT 0000048c 
OF ONE ANOTHER AND MAY THEREFORE BE USED ADDlTlVELY. THAT IS* 00OUO490 

— THE COMBINED FUNCTIONS -UF _____ VAuUFS ____-3__ A ND 6 4 OOOOOsnn 

COULD BE INVOKED BY "c0MM0N = H4" C 2 + 16 + 32 + 64 } . THE EXCEPTIONS 00000510 

TO THIS RULE WILL BE ELABORATED AFTER EACH COMMON OPTION IS 00000520 

OE - CRIBEO IN DET A IL . 000005 30- 

CUMMON CARQ OPTIONS 00000540 

00000550 
NOTE: IN THE DESCRIPTION OF EACn QPTinN> IT IS ASSUMED THAT A Q X__10-5_G 

STAMOARO MEMORY DUMP ANALYSIS IS OBTAINED *£XCEPl '* FOR THE 00000570 

DIFFERENCES GENERATED BY THAT PARTICULAR OPTION. A "STANDARD" 00000580 

ANAlYSIS TS flMF flBT-TluFD WTTH M\ Ci___0_| VAMlFfT. F. r.riM_nfct-(n. OnOOOsqfl 

000U0600 

C0MM0N=O. 00000610 

YIE L DS A S TANDARD - ANA L YST S* A T-S/PRT FRF LS RFQUIRED. 0Qi_iQ ^2_C 

00000625 
COMMON*lt 0000063C 

YIEI. n_ A ___J__U_______J_UJJ DUMP OF MEMORY* Nfi !______ \ h nnOfin^n 

28 | REQUIRED. A "COMMENT" ENTERED WHEN THE DUMP TAPE WAS CREATED 00000650 

IS ALSO PRINTED, 00000660 

-— ; . . 00000665 



12 
13 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



29 
30 
31 



33 
34 
35 
36 
37 



46 
47 
48 



C0MM0N»2. 0000067C 

32 DUMPS ALL AVAILABLE AREAS BELOW THE FENCE BUT ONLY THOSE 00000680 

ABUVF THE FENirF WHlr.H ARF C _____L___ ______ AM ACTl^/F JflHS SET _______ 

OF CHUNKS. A JOB IS CONSIDERED "ACTIVE" If ITS MEMCRY AREA IS 0G0U07GG 

PRINTED AND ANALYZE;./ PY THE A|VM|_r2Eh. CC00071G 

. 7 13 



CCMMON-3. 0G0UU72C 

"I DUMPS ALL AVAILABLE AREaS AfaOVt AND BELOW THE FENCE. ThIS 00000730 

39 IMPLIFS THAT THF ENTIRE AREA AriUVE T_£ ____, _!__ _£ DUMPED 0Q0UU74C 

«| EVEu if PART OF IT [S NUT "ACTiVc". Tht INACTIVE m*'_AS aRFJ 00UuG75C 

PRINTED IN "SPLaSh" FL'RMAT. 00000760 

_ OQOoU76 b 



C0MM0N-4. 00000770 

EXCLUDES ALL NORMAL STATE OBJECT CODE* ABOVE AND BElOW THE 00000780 

FENCF. THIS TNnurifr-s ali p«nr,R_M seGmfnTS _________ with a 000007QO 

MIX INDEX AND ALL INTRINSIC SEGMENTS WHETHER IN RE-ENTRANT USE 000b0800 

BELOW THE FENCE OR EXCLUSIVE USE ABOVE THfc FENCE- 00000810 



4 ] C0MM0NS8. 00000820 

EXCLUDES ALL MCP OBJECT CODE EXCEPT THAT WHICH LIES IN THE 00000830 

VFRY FTRST ARFA OF MFMGRY. ; 0Q000ft4Q 



Q00UU615 _____________ «i 



0000084b 
C0MM0N=16, 00000850 

TNHTRITS THF DllMPTNO OF L_E -ATaCHM ARrtaYS A_____L_L__ W?Tm OnOOOHftO m, 

f* LINE MAINTENANCE. 00000870 

00000875 
CQMMnN*32t _____ .. OQOOOflflQ 3 
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I M 
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43 
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46 

I « 
48 



49 

I so 

51 

52 

) S3 

55 



INHIBITS THE DUMP 
ALPHABETICALLY AND BY 



OF ThE mCP PR 
PRT LOCATIUN. 



IDENTIFIERS SUHTtO 



C0MM0NS64. 
YIELDS 



000U0890 
00UU0900 

onooogn s 



AN OcTAL-ONLY OUMp OF MEMORY FORMATTED SIX WORDS/LINE. 



COMMON* 128. 

YIELDS AN 
CONTAINS FOUR 



00000910 
00000920 
00000905 



THEIR ALPHA EQUIVALENT, 
0nMM0Mis25ft, 



ALPhA/CCTAL DuMP OF mlmohy. 

wnRns fiF uctai. nn lohhj» on 



EACH HWlNTEC LINE 
THE SAME l„INE» BY „ 



00000950 
00000960 

00000970 



YIELDS AN ALPHA DlJMP OF 
OF ALPHA PEH PRINTED LINE. 



MEMORY FORMATTED TftELvE WORDS 



00000980 
00000985 
00000990 



C0WM0N*384, 

COMPLETELY INHIBITS THE PRINTOUT OF THE CONTENTS OF MEMORY 
THIS nflFS NflT TMPlY TkAT MfMnRY TS iVOT A M ^ V 7 gn i V g R T f f q A T j DNi 



ooouiooo 

00001010 
00001015 



OF MEMORY LINKS IS MACE* ThE BED AND FOhKQuE ARE CHECKED* 
STACKS ARE LOCATED, ETC, 



00001020 
O0Q01Q3Q 
00001000 



00001050 
00001060 
000Q1070 



C0«M0N*512 
CAUSES 



THF CONTENTS HF THF "AFiGH" ARRAY TH HE PHlNTFD IIP TO THF 



LAST VALID WORD POINTED Tq BY "YECH". THIS INFORMATION IS PRESENT 
ONLY WHEN AN MCP PATCH, THE "ROTO" PATCH, HAS BEEN COMPILED INTO THE 
MCP. ; __ , „ 



00001072 
00001073 

onuoi07a 



00001075 
00001076 

Q00 1 Q 77 



PRT CELLS WHICH EXERCISE CONTROL FUNCTIONS 



NGTej PRT LOCATIONS SPECIFIED REFER TO OCTAL PRT LOCATIONS FQK 
USE IN AN "IN" MESSAGE. 



00001078 
00001080 
00001085 



PRT 



25, 

THIS CELL IS NORMALLY S£T FROM THE RIGHT-MOST 3 DIGITS WHICH 
APPEAR nN A CHMMOM CARP, Hfl-EuEH. THE Y WA Y RF E xPl I f. I Tl V ST T 



00001090 

oooonoo 

o ot i o i no 



ANU/OR MODIFIED DURING EXECUTION OF 
MESSAGE. 



the analyze* via the "in" 



00001120 
00001130 
Q____j ___ Q 



PRt "26,. : 

THIS CELL CAN BE USED TO ENABLE A DyMP-3Y« 
TO A NQN-ZEfSO DECIMAL NUMBER EQUAL TO THE MIX 



00001150 
000U1160 
00001165 



'MIX- INDEX, jF SET 
INDEX UF A JOB IN 



THE MIX AT THE TIME THE DUMP la TAKEN, IT WILL CAUSE MEMORY AREAS 
BELONGING TQ OTHER MIX INDEXES TO BE EXCLUDED FRUM THE ANAL Y SIS. 
NOTE THAT IF THE CONTENTS OF THIS CELL DUES NOT C ORRESPOND TO A 



00001170 
00001180 
00001190 



VALID MIX INDEX, *NQ* NORMAL STATE STACKS WILL BE DUMPED NOR 
WILL ANY NORMAL STATE AREAS ASSOCIATED wl TH ANY MIX INDEX BE 
PRINTED. . ' . ■■: ■/■ .; ^ ■ . :• 



00UU1200 
00001210 
0QQ0122Q 



00001230 
00001240 
00001250 



PRT 



27, 

TH I S 



CELL MAY BE USED ONLY IN CONJUNCTION WITH THE 



PREVIOUSLY DESCRIBED COMMON CARD CONVENTION OF SPECIFYING AN 
OCTAL STACK ADDRESS AS THE FIRST 5 DIGITS QF THE COMMON VALUE, 
IF MAnF NQN-ZFRfl, THFM THF nEElMAi. VAl UF FNTFRFQ IN CEl i 37 



00001255 
00001260 
00001270 



WILL DETERMINE THE AMOUNT OF STACK PUMPED BELOW THE TOP-OF-STACK 
VALUE. IF LEFT ZERO, THE DEFAULT AMOUNT OF STAC* CuMPEDUND 
ANALYZED) Will. BF j?QOq,FClHAL ) W O R D S , , 



00001280 
00001290 
Q0QQ130Q 



00001310 
00001320 
QO0O133O 



PRT 



30. 
TH I S 



CELL, IF SET TO 1, WILL CAUSE THE PRINTOUT OF MEMORY 



00001335 
00001340 
00001350 



117 

1U| 



h 
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56 

S7 



TO BE DOUBLE-SPACED. OTHERWISE, ThL PRINTOUT 15 S i NGLE-Sp ACED . 
PRtCFDFNCF CF wPT H.i l\5 AND ^ GGE SfTO N S FUR C O M BI N ING TH FM. 



000U1360 
00001370 
QQ0Q1380 



AS STATED EARUE 
OR IN CDMBINATlDN. . 



R, COMMON UPTIONS MAY DE USED SEPARATELY 

Al THOUGH MOST CLMHINATIOKS AHE AHOdEO. THERE 



00001390 
00001400 
nnoolain 



ARE IMPORTANT EXCEPT 

1* A COMMON VALUE 

-2* A COMMON VALUE 



UlNo. THE HULEb ARE* 

F 1 PRECLUDES THE USE OF ALL OTHERS. 

F 3Hft PRECLUDES THE USE. OF ALL , CITHER 



COMMON VALUES EXCEPT FOR 16 AND 32. NOTE THAT 384 IS THE 

SUM OF 128+856. 

3. FTTMER A CnMMnN \ZA|UF OF ? nft A CrtMMUM \<A|Uf.flF 3. MPT RHTH. 



00001420 
0000U3C 

ooouuao 



0OOUU50 

00001460 
00001470 



MAY BE USED. IT IS 
OPTION JUST AS THOUG 
CQMHtlN«lOC8*g.) OR CU 



PERHAPS SlMPLESl TO THINK OF 3 
H IT WERE AN EVEN PO^ER OF 2, 
PPPhM lC fl + J? I S VAL ID BI T NUT 



(8+5), (IN THIS LAST 

IN ONLY THE EFFECTS 

JL. C OMMON VA LUE S 4 * 



AS AN ADDI1 IVE 
FOR EXAMPLE* 

C QM M QNM3 



00001480 
00001490 
QQ0Q15QQ 



CASE, TmE 5 WOULD BE ENTIRELY IGNORED RESULTING 00001510 

OF THE 8). 00001520 

fl.10, AND J3 ARL TnTALLY TNnEPFhnFNT ANH POPPI ED 



ADDITIVE IN ALL POSSIBLE CUMBI N AT IONS. 
„ , , SQMF SPECIFIC EXAMPLES UF COMMON OPTION^ 



00001540 

00001550 
OOU-01560 



A, W C0MMON*35721432". 
THTS CAUSFS A "STACK" AT TS7?1 TU BE DUMPFD ALONft H f T H 



OTHER STACKSj NONE 
IDENTIFIERS ARE NOT 
NO T nUM PE PU 6 ). T_H1 



00001565 

00001570 

■ 00001580. 



F MEMORY IS PRll'JEOf 384), ThE MCP PRT 
PRINTEDC323, ANu THE OATACOM ARRAYS ARE 
S-CU M HI NATI ON MIGHT H E USED Tq PHOVI PE A 



00001590 
00001600 
0QUO16 1 Q 



MINIMUM OF OUTPUT AF 
AFTERWARDS FOUND TQ 
LOCATED NEAR ADDRESS 



TER A MEMORY DU*P HAS BEEN ONCE ANALYZED BUT 
HAVE a MISSED A STACKClN THIS CASE* 
35 721 ). 



00001620 
00001630 
Q0 Q Q1 64Q 



B. «C0MM0N=12 M , 

THIS ELIMINATES 
ME'MQRY R FL QH THE FFN 



ALL OBJECT CODE FROM THE PRINTOUT OF 
CF AND A LL. NORMmL STA1 F C ODE I N a R F a S 



00001650 
00001660 

QQ00167Q 



ABOVE THE FENCE. 
C. "C0MM0N=66 M . 
THIS EnSURFS THAT ACT T VF AVAllAdLF AHEAS ARF AlhAV PHTttTFtltPl 



00001680 
00001690 
QQ Q1 7Q Q 



AND PROVIDES THAT MEMORY IS PRINTED In OCTAL FORMAT 0NLYC64). 
D. "C0MM0N=24". 
THTS TOGFTHFR WTTh PRT >ft Si-T TU A VALID Mix INnEX REDUCES 



00001710 
00001730 
QQ001 74Q 



THE AMOUNT OF OUTPUT 
MCP CODE IS PRINTED 
THUS F RELATING TO T 



OBTAINED DURING A M1X-QNLY DUMP. NO 
LEAVING ONLY NQN-MCP CODE AREAS BESIDES 
Hr MIX TNDFX HEINr, DUMPFfV. ALSO, THF 



00001750 
00001760 
0O00177Q 



DATAC 
STATE 
I ND E X 



OM TABLES ARE 
STACK DUMPED I 



kITTEDC 16), FINALLY/ THE ONLY NORMAL 

S THE UNE bELQNoiNG TO THE PARTICULAR MIX 



00001780 
00001790 
00001800 



PROCESSING MULTIFILE DUMP TAPES 



00001900 
00003000 

00003005 



THE ANALYZER HltL AUTOMATICALLY PROCESS, IN A GIVEN RUN* ALL FILES 00003010 
ON A "DPMT M TAPE IF LABEL EQUATION IS MADE TO ANY FUE BEYOND THE 00003020 
FIRST DNE. THF ORDER OF ANALYSIS iS OPPOSITE THAT OF CREATION. FOR 00003030 
EXAMPLE* IF LABEL EQUATION IS MADE TU THE FOURTH FILE, "FILE MDUMPb 00003040 
M£MORY/DUMP004"* THE FOURTH FILE IS FIRST ANALYZED* THE THIRD NEXT* 00003050 
THE SECOND AFTER THAT ONE AND THE FIRST FILE LAST. AS PROCESSING OF A 0O0Q3o60 



NE W FILE IS BEGUN, a MESSAGE IS WRITTEN TO THE CUNSOLE SO THAT THE RUN 
MAY BE DISCONTINUED IF NO FyRTHER FILES ARE TO BE ANALYZED, 



00003070 
00003080 
Q0Q03090 



■pi < 

fltl 



A COMMON VALUE MAY B£ INCLUDED IN THE COMMENT PORTION OF THE 00003100 
REMARKS ENTERED AFTER A "DPMT" COMMAND OR AFTER KEYING IN THE UNIT 00003110 
WHEN USING THE mFmORY HUMP DECK, THE SYNTAX ISI "CQMMONs w <COMMQN VALUF>nOQ0ai?n 



k 



2 
3 

4 
5 
6 
7 
8 
9 
10 



12 
13 
14 
15 



16 

17 



19 
, 20 



21 



23 
24 
25 



27 
28 
29 
30 



31 

I 32 

33 

34 



38 
37 ~ 

1 38 



40 
42 



43 



46 
M 

I 47 



49 
I 50 



51 
52 



55 

52. 



, WHERE "COMMON- MAY BE ABBREVIATED AS "COM" ANG MUST BEGIN NU LATER 00003130 
THAN THE 140"TH CHARACTER UF THE MENAGE. A COMMON VALUE ENTERED IN 00003140 
I N THIS M A NN E R QV E RR I PE.S A N/ WH I CH MAY bh S L PP L UQ b Y L A H E.I. EQU A T IO N * 0000-1150 



ONE EXAMPLE IS« "DPMT CUMM0N*36; ALL JOBS APPEAR ASLEEP," 
BFSIN _____ 



00003160 
00003170 

nnooaatiQ 



BOOLEAN COM/ % MUST BE FIRST DLCLAHLD 00003900 

INTEGER PRT26; DEFINE 0NEMlX=PRT26#; % FOR bLMPJNG ONLY ONE JOB 00004000 

INTEGER PRTP7; D EFINE MYSTACKSlZEsPKTp7»; % IF *Q,AMT BELU* MYSTACKADR nnonsnnn 



BOOLEAN PRT30; DEFINE OOUBLESpacE*PHT 3Q» ,* t DBL*&PACE DUMP OF MEMORY 00006000 
BOOLEAN PRT3i;% RFE 00007000 

BOOLFiW PRT32; % USED FOR DFRUGfilNG ; OOOQBOOn 



COMMENT DEFINES RELATING JO COMMON CARD OPTIONS; 0000*000 

DEFINE C0MM0N=ReALCCCM)51*;* l = SHLAi>h DLMP, NO ANALYSIS 00010000 

DEFINE DUMPAVAll..»C0M.[46M ]•;» 2sD„MP ACTTuti AVAlLA^lE nEMpRV OOOUQOQ 
DEFINE DUMPALLAVAIL*RfALccOM),E46I23*3#;X 3*DUMP ALL AVAILABLE M£MORY 00012000 
DEFINE N0N0RMALC0D|aC0MtU5«n#;x 4s00Nt DUMP TYPE 1,7, OR 13 CODE 00013000 
DEFTNF NQMCPcnr)F«criM.rfl_{ i1*j* w«n0NT nhMP mcp cor>E<-TYPFs|.Mixgm nnoi-pnn 



DEFINE N0TABLESsC0M.[ii3»l]#;X 16*DQNT DUMP SELECTED ARRAYS 00015000 

DEFINE DQNTDUMPRT=COM.f 42»U*;* 32*QDNT DUMP PRT 00016000 

DEFINE DUMPQCTAl ONI Y = COM.r^ltUtf; * b4«LlMC0frD I T I ONA| OCTAl QM Y DUMP 0Q01700C 



DEFINE DUMPALPHAOCTAL*COM,t«OJn*;X 128*DUMP MEMORY IN ALPHA/OCTAL 
DEFINE DUMPALPHA0NLY»C0«.t3ViU*JX 256»DUMP MEMORY IN ALPHA ONLY 
DFFtnf NfimiMP.RFAi t rnun . r *oi? i»a« 1 _ 3flti B QMt T miMp nr mfmhrv 



DEFINE DUMPCESSPOOLOKLY*COM,L38I13#J* 5l2».JUMP ONLY THE "ARGH" ARRAY 
F I LE I N DISK DISK S ERIA L "T S S" "PRT" C 2 » 30 ) i 



00016000 
00019000 
00020000 



FILE IN MDUMP 2(2,333)) 

FILE SPO 11(1*10); 

FILE P 4 ( 3, 15); 



X DISK*533# TAPE»513 



00020100 
00021000 
POPSHOP 



PRUCEOURE PRINTCOMMONVALUES; 
BEGIN 
INTFGFR Ir 



00021110 
00021120 
000 2 11 3 



SWITCH FORMAT CQMINFQJ* 

(///"THE COMMON VALUES AVAILABLE ARE*"/), 

f"cQMMQN*Q YIELDS A STAftDARn MEMORY DUMP ANn AN aL YS T S ." U 



00021140 
00021150 
00021160 



00021170 
00021180 
00021190 



("C0MM0N«1 YIELDS A SPLASH DUMP WITH NO ANALYSIS.")* 00021200 

("COMMONS PRINTS AVAILABLE AREA*.")' 00021210 

("CaMM0N = 3 PRINTS AVAIlABiE AREA* INCmiljInG INACTIVE AREAS ABOVE », 00021212 



"THE FENCE,"), 
("COMMON** OMITS NORMAL STATE CODE SEGMENTS,"), 
c«rnMMnNsA QMlxS mep r.nnF sfgment&.w*. 

("C0MM0N=16 OMITS DUMPING THE Da! ACOM ARRAYS ASSOCIATED WITH LINE 

"MAINTENANCE"), 
("C0MM[)N*32 OMITS THE PRINTING UE THE SflRTEU MCP PRT 



00021215 
00021220 
00021210 



">00021240 

00021245 

IDENTIFIERS."), 00021250 



("C0MM0N«64 CAUSES MEmOBY TO BE PRINTED ENTIRELY IN QCTAL#"), G002126Q 

("C0MM0N»i28 CAUSES MEMORY TO BE PRINTED ENTIRELY IN ALPHA/OCT AL." )'O0021270 
("mMM ONgPIrt f.AhSFS MFMtlRY TQ BE PRINT^n FNTlRF| , V T hi A|.PHA.»). 0QQ21PflQ 



("C0MMON=384 CAUSES NONE OF THE CONTENTS OF M E MQRY TO BE PR INTEO." > ' 00021290 
C"CUMMQN»512 DISPLAYS THE CONTENTS OF THE ARGH ARRAY."/), 00021300 



t"FQR ADDITIONAL INFORMATION* CONSUL , T THE FIRST SrVJpRAl ", 



END 



"PAGES OF THE FILE « S YMBQL/T5DUMP, »)} 
FOR !■!■© STEP 1 UNTIL 14 DO WRITE<P,C0MINFQC<JJ J* 
PRINTCOMMONVALUES; 



00021.110 



FORMAT FINK48C"*")," END OF TSDUMP ANALYZE ",4flC"*")); 

INTEGER MYSTACKADR; 

BOOLEAN AOTOG.MYSTACKDIJMPFDJ 



00021320 
00021330 
OQQ21340 



INTEGER MIXMAX;XACTUAL M1XMAX 
DEFINE 0EFINE0MIXMAX*29#; 
lNTEfiER PRTDAXMNTMAXt 



IS OBTAINED Fm MOTHER VECTOR 



00023000 
00023100 
QQ0 231 5Q 



00024000 
00025000 
00026000 



>r 



10 

11 

12 
13 
14 

15 



16 
17 
18 



19 

20 



22 
23 



26 
27 



28 
29 



30 
31 
32 
S3 



34 
35 



36 

37 ~ 



40 

41 
42 



45 



49 

50 



52 



55 
56 



DEF 1NE PRTBASE»129#J1FJKST PRT CELL ALLOCATED BY E3P0L 
DEFINE ACTUALPRTBASEs1l2#;* FIRST PKT CELL AS PER MCP DEFINE 
DFMNF PRTSHAX«8Qtf?,t UPPER LIMIT Q£ HUTS ARRAY 



define inf0max*4xprtsmax+3»; 
real level»sublevel/version; 
integer klass;* identifier classfas 



00027000 
00028000 
000*9000 



DETERMINED BY £SPQL 



00029100 
00030000 
00031000 



INTEGER NAMESIZE#NAMSSUE; 

DEFINE NSNAME[NSNAME1]=NAME[NSNAME1 J . [8«10J#; 

INTEGER INAMFSlZF»TNflHSSlZE; 



DEFINE I SNAMEC ISNAMEnslNAMECISNAMElJ.ee: 10]*; 

ARRAY SEGZER0C0J293; 

BOQl E A N Mcfi* TSFI l. L/PRT P gTERMINFl) WH A T MO O U I £S WER E I NCLUD E D 



00032000 
00033000 
00034000 



STREAM PROCEDURE MO VE( S,U»vy ) / VALUE H; 

begin suss; di**d; ds:» w wds ; end move; 

PROCTDURE gUSTCQMMQNj 



00035000 
00036000 
00037000 



BEGIN 

real my»d; 

ARRAY TCQlOU 



00038000 
00039000 
0Q042 5Q0 



FORMAT F(»r»I5i"»">Xl)i 

REAL STREAM PROCEDURE QCTDECtCJi VAlUE Li 
BEGIN sUlqc c; DULnC IJCTOEr; ds+bdfc 



00042510 
00042520 
0QQ 4 2 5 3Q 



end 



BOOLEAN STREAM PROCEDURE N0T5OCT ADESCC ) ; VAl,UE C; 

BEGIN Sl>LOC C# 5C IF SC GTH «?« THEN BEGIN TALLY«-1* 
END FtSE SUSItHi MnT5QCTAUFS»TAI.i V EttUJ 



JUMP OUT 



00042540 
00042550 
Q0Q4?^f)0 
00042570 
00042575 
QQ04258Q 



STREAM PROCEDURE DECOCTC D/ 01 » D2 ) ; VALUE D; 

BEGIN SULOC 0/ DI*0 1 > DS-5GCT ; Dl<-02/ DS«-30CT 



END. 



IF N0T50CTADES(U«-0CTDECCC0M) )THtN 

DECOCT(0#MY,COM); 

TF MY»f) TMFM M YST AC. K ApR«-- ■) FLSL 



D.LI »29]«-0* 



00042590 
00042600 
00Q4261Q 



00042620 
00042630 
nf)Q4PA4n 



BEGIN * CONVERT FIRST 5 DlGl'lS OF COM AS IF ThEY *ERE OCTAL DIGITS 00042650 

WRITE(T[*3/F/MY); 00042670 

READf TT» WfKYSTACKAnRW 0a0a2ftfin 



end; 
end bustcommon; 
procedure rfaoarrayf wcrusufta n a m f^e a sf)! 



value wordsize*base; 
integer w0rdsize*base; 

ARRAY ANAME[»]t 



00042685 
00042690 
00043000 



000440CO 
00045000 
00046000 



BEGIN 

Integer i,segs,n; 

ARRAY BUFr0l2Qti 



00047000 
00048000 
00049000 



ni-hordsize mod 30/ 
segsj=cw0rdsize+29) 
sfgs»=segs-i; 



div 30; 



FOR I»*0 STEP 1 UNTIL SEGS DO 
BEGIN 
: REArunTSK.^n.BUFf till 



00050000 
00051000 
00052000 



M0VECBUF/ANAMEtBA5E + 30xn/IF 

end; 

IF PRT32 



00053000 

00054000 

.00055000 



I 



*SEGS OR N*0 THEN 30 ELSE N); 
THEN BEGIN HRl TE( PC PAGE JH WR I TE t P [ DBL 1 ,<"B ASF.s", 



I5» H SIZE» M #I5>#BASE#W0RDSI2E); FOR I 
BASE+WQRDSIZE -1 00 BEGIN MOVECANAMEC 
WRITE(Pf ItBtlFf* ]) FNO END/ k 



00056000 
00057000 
00058000 



■BASE STEP 1 UNTIL 
l3#8UFtOJ#l); 



end of readarray; 
bustcommon; 

CQMMFMTtTD GFT nPTTflfcS. 



00059000 
00060000 
00061000 



USE "CMIX3IN25" ANU/UH COMMON CONTROL , CARD; 



if common then namesi ze i*na!ssize isjnamesize : » i namsslze j* 1 else 
begin 

REAQARRAY(30»SEfiZFRQ[»]j»0); 



00062000 
00063000 
QQO6310Q 



00066000 
00067000 
Q 00 660Q0 



48 

■tit 
50 
F.I 
52 
S.3 
lf.4 
V, 
v ,k 
"I, 



J?J 



h 



e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



26 

27 
28 
29 



30 
31 
32 
33 



34 

I 35 

36 

37 " 
i 38 

39 

40 
I 41 

42 

43 ~ 



45 

46 

! 47 

48 



49 

I 50 



51 

52 

I » 

54 



55 

56 



clusecdisk); 
levels*'^"; x 1 digit 
subievei,1» w 00 h 1 % g cigixs. 



VENSI0N!»"B"1 % 

COMMENT EACH TIME ANALYZER IS 

MCPl»BOOLEAN(SEGZERO [Um COM 



00069000 

00070000 
000/0100 



CHANGED INCREMENT ALPHABETICALLY; 
PILE-TIME OPTIONS 



NAMESlZES*S£GZERO[23+lJ* t OF 
NAMSsiZE»=SlGZERQC3]n * OF WO 
I NAM FSIZE t»S E.Ci ZrR0U ] + 1iS * OF 



MCP PrtT CEUL3(AB0VL 0200) 
RDS THE MCP IDENTIFIERS OCCUPY 
l NTHjN& I CS 



00070200 
00070300 
00071000 



OC072000 
00073000 
O QOMQ QO 



lNAMSSIZEIsSEGZER0t5];X # OF WORDS THE INTRINSIC IDENTIFIERS OCCUPY 00073000 
END SEGZEROSTuFf; 00076000 

MIXMAXI« D£ FINF r)M lX M AX; 00077000 



%%%%%%%% 
BEGIN 
LABEL FOPRQ 



% % % % % INNE^ BLOC* BEGINS %&%%%%%%%%%%% 
GJ , 



LABEL RESTART, XX; 
BOOLEAN PRTOK,SGLTOG; 
BOOLEAN NOOUMPTQGJ 



000d2000 
00083000 
QQ08303Q 



INTEGER I; 

REAL R; 

REAL AUXTYPt J 



00083100 
00084000 

ootiaaioo 



BOOLEAN NOMO'MUL 
ARRAY PRTNAMECOJ 
A RR A Y TPN A ME C Ot 



ti»repeating#reluad; 



00085000 
00086000 
000 ti60 10 



1 A ME C 082] 



DEFINE TDMFID*T» 
TDFID«TPN 
_ F IL ETYPEsT 



NAMEtOJ** 
AMEC13** 
FNAMEC23*. 



00086020 
00086100 
000 86 HO 



ARRAY PRTSCOJPRTSMAX]; 

ARRAY INFOtOUNFOMAX + lJ; 

ARRAY N A MEtPftT BA SE»PRTBASE+N A Me sI Z£ »lj; 



00086120 
00086130 
00^ 86 1 4 



ARRAY N 
ARRAY I 
ARRAY I 



AMSCQINAM 
NAME[0$ IN 
MAMSCOUN 



SSIZF 

AMES I 
AM SSI 



00087000 
00088000 
QQ089Q0Q 



-n; 

ZE-13 
ZE-13 



ARRAY XNAMECACTUALPRTBASES 

ARRAY XNAMS[0»183; 

nrFlNF XSMAMEtXS\&MEl]«XN& 



2013; 

Mr[XSftAMFlJ.,[ftllOJf ; 



00090000 
00091000 
00092000 



00093000 

00094000 
00095000 



REAL vjobnum,vbed; 

DEFINE STAXMAX=8C#J* 

ARRAY STAX[niSTAXMAx-n; INTEGER M A xS TK . BCD STK , 



COMMENT ITHE 
DEFINE 



DEFINES BELOW MUST 
CHECKLINK s MCP 
DjCJB ■ M(!P 



CORRESPOND 
.C 46 U i f * 



TO ThOSE IN tsfill/prt; 



00096000 
00097000 
0nU96f)(iQ 



00099000 
00100000 
QQ101QGC 



DEBUGGING 

DFX 

DUMPP 



= MCP 
a MCP 
- MQP 



.145*13*, 
.[44* U*> 
.[43*13*, 



00102000 
00103000 
00104000 



SAVERESULTS ■ MCP, 
SHAREOISK » MCP, 
STATISTICS s MCP.C40I13*, 



.C42«l3#, 



TWXONLY 
AUXMEMM 
B6500L0Ar) 



* MCP 
b MCP 
s MCP 



,[391 l3#, 
. L 38 ! i3#, 
. C37i 1 J»^ 



00105000 
00106000 
0Q1 Q70 QQ 



00108000 
00109000 
00109100 



SEPTICTANI 

PACKETS 

MQNITORR 



■ MCP 
a MCP 
a MCP 



.[36»l3## 
• C35« 13#* 

.[34U3I/ 



00109200 
00109300 
00109400 



ARRAY M 
DEFI NE 



MAXOPT 

EM0RYC0J6 

TYPMAX*2? 



3,0*5 



= 14*/ * UPDATE AS OPTIUNS ARE ADDED 

in; 



00110000 

00111000 
00U200Q 



DEFINE 
FF»C 
CF»E 



M»MEMORY#j 
18»1I3*,X 
331153*, X 



00113000 

.00114000 
OOUSOOO 



|2H 
29 



\1 

M 

4fi| 
■I; ' 
48 
4(n 
50 
51 
52 
63 
•A 



10 

11 



19 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



43 



45 



48 



51 



CTF«C18I33I153#»* 00116000 
CTC*C 33 133*153*,X 00116100 
- — R Q W a [ 33i6 3tf « % —————— . — — . — _ — 0QU7Q0Q - _ 

C0L s C39J9]i»; % 00118000 
DEFINE FENCE * PRTS£Q0]#, 00119000 
FQRK QU E a PRT SC Q 1 3* * QQ120Q00 

SO s PRTSL02]*, 001*51000 

ESPQIT s PRTS[03]*» 00122000 
BSD , = PRTSf04]«i 00l?300Q 

BE01 3 PRTS[053#> 00124000 

STATABLE * PRTSC06]*, 00125000 
UNST A BLE s PRTSC07]** 00126000 

TOGLE = PRTSCOti]*, 00127000 

OAATE = PRTSC09]#,* UATE 00127100 
CU O O CK a PRTM UlJJUJi CLQC* 00127300 - 

XCLOOCK « PRTSC113*** XCLOCK 00127300 

PRT s PRTSC12]!, 00128000 
- JAR s PHTS CI 31 it nntsonnn 

INTRNSC = PRTS[14j#, 00130000 

SHEET * PRTSU53*/ 00131000 
MEMROW s PHTSllflHt 00132000 __ 

TANKS * PRTStl*3#* 00133000 

SEQARRAY s PRT$U8]#, 00134000 
I STACK g PRTSC19]*, . 00135000 

1NPUTANK = PRTS120)** 00136000 

UV s PRTS[2lJ#* 00137000 
CH A NNEL . a HRTSC22]*i — qqj ^000 _____ 

FINALQUE a PRTSC23]*, 00139000 

LOCATQUE s PRTSC24]*, 00140000 'I' 

___ iriQUEAVAIL — s PR TSC2 5T# * nniit)nnn >| 

IOQUE = PRTSC26DK* 00142000 

UNIT 9 PRTSC27 3## 00143000 
TI N U s PRTSU8 ]tf^ 00144QQC 

WAITQUE s PRTS[_93#> 00145000 

NEXTWAIT s PRTS£30]#, 00146000 
FI RSTWAIT s PRTS_31.»» 00147000 

LA8ELTA9LE = PHTS£32J#» OOHfaOOO 

MULTITABLE = PRTSLJ3].* 00149000 
RDC TABL E * PR1SC341<> 00150000 



OPTION s PRT5C35]## 00151000 
MESSA6EHQLDER * PRTSC36]*, 00152000 
PRNTABLff » PR TSC 3?3 ff f 00153000 



P1MIX * PRTS[39l*, 00155000 

P?MIX PHT.C403^ , 00156000 

NOTHINGTODO * PRT5C41J*, 00157000 

STACK0VE8FLQW s PRTSC423#> 00158000 

R ETU RN « PRTS.<3.«. 00159000 



OTHERCLQSE ■ PRTSt44]#, 00160000 

SPACESTACK = PRTS[45]#, 00161000 

^TACKO - PRTSC46]*, 00162000 



LOGARRAY sPRTSUWI* 00163000 

SPACER • PRTSC4flJ#, 00164000 

LQG LIN E ■ PRTSC49_I» , , 00165000 



j.i 






40 INITIALIZE = PRJSC38]*, 00154000 

41 



.47 

|4ll| 
4.-l' 
bO 
!>l 
52 



52 INTRGATOTR s PRTSC503** 00166000 

53 LMAX s PRTSC-13** 00167000 a 
______ s PR TSL 523 <t^ 0Q16800Q 

56 ( TNAOG ■« PRTSC533** 00169000 

"I LAST-RESULT * PRTS.543», 00170000 

RESULTHOLnFR » PRTS C.5 3*? 00171000 j>J 



^r 



WORKERSTACK 

CT 

RFAOYENn 



s PRT3Eb6]** 
s PftTSlb73#* 
= PRTS C5tt m»f 



I 2 
3 
4 

I 5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 

21 
22 
23 



FORCEND 
RDYRPTEND 
SW A PEND 



s PHTSEb93** 
s PRTSC60]*, 
m PR TS[613«t 



L0GLINE2 
BIGUNS 

CHUNKM A X 



DIRECTOKYFREL 

ARGH 

YECH 



s PRT5U23** 
s PRTS[633#* 

s pHrsu^aa* 



s PHI S'£ 65] #* 
s PRTSC66]#, 

■ a PRTSC673** 



SYSNU 
DISKOUNT 
XLUsI 



= PRTSU81** 
« PRTS[oS>3## 
g PRTS[7QJ«» 



PUNTER 

NOPROCESSTOG 
CORF 



PRTSC7l3#* 
PRT51723** 
P R TS f 7 3]f » 



EUQ 

LQUE 

LQAVAII. 



= PRTSC743** 

s PRTSC753#* 

-« PRTS[763ff* 



24 

26 



TAR 
10QUESL0TS 

DU MMY 



s P«TSE77]#, 
b PRTSC783** 



PROCEDURE FIULINFO; 



FILL INFOC 
"FFNCE 



3 WITH % 
Q*Q * 22* 



-00- 



I 26 
27 
28 

i » 

30 

31 " 
| 32 

33 

34 
: 36 

36 

37 " 
I M 

39 

40 
, 41 

42 



45 
46 
47 
48 



"FQRKQUE 

"SO 

"FSPBIT 



0*0*26* 
0*0*26* 
0*0* lO» 



% 

% 

JL. 



01 
02 



"BLQ " 

"BLDl " 

"S3ATAHI F" 



0*0*22* 
0*0*26* 
0*0*26* 



% 

% 



04 

05 



"UNETABL" 
"TOGLE " 
"DATE 



M CLOcK 
"XCLOCK 
"P*T 



"E 

0*0*22* 
Q* Q* 22 * 



%0*26> 



% 

% 
JL 



0? 
08 
JUL 



0*0*22* 
0*0*22, 
Q*0*26* 



% 
% 
% 



"JAR " 
"1NTRNSC " 
"SHEET " 



10 

11 

-L2_ 



"MfcMROW " 
"TANKS " 
"SLQARRAY" 



0*0*26* 
0*0*26* 
0>0*26> 



% 
% 
% 



13 

14 

15. 



0*0* 26* 
0*0*26* 
*0*2 6* 



% 
1 
% 



"i*Tack " 
"inputank" 

"UVRnW " 



16 

17 

JUL 



0*0*26* 
0*0*26* 
0*Q* ? 6 * 



X 
% 
% 



19 
20 
1±. 



"CHANNEL " 
"FINALQUE" 
"I.UCATQUE" 



0*0*26, 
0*0*26* 
0*0*26* 



22 

23 

JUL 



49 
I 50 



51 

52 

i 53 

54 



"IQQUEAVA" 
"IOOUE " 

"UNIT « 



"IL 

0*0*26* 
Q*Q* ?6* 



"»0*22* 



X 

% 

JL 



25 
26 
-2JL 



55 
56 



"TiNU " 

.".HAH QUE " 
"NUTWAIT" 



0*0*26* 
0*0*26* 

0*0*22, 



% 
% 

Jl. 



28 

29 
3£_ 



"FIRSTWAI" 
"LABELTAB" 
"MULT 1 TAR* 



"T 

"LE 
«LE- 



",0*22* 
",0*26* 
",0*26* 



31 

32 



QQ17200Q 
00173000 
00 173 010 



00173020 
00173030 
0017 3040 



00173050 
00173060 
1 7 3 070 



00173080 
00173082 
001730 84 



00173086 
00l?3088 
1 7 3 Q90 



00173092 
00173094 
0017 3096 



00173098 
00173100 
Q01731QZ 



00173104 

00173106 
nnt?annn 



00175000 
00176000 
001 7700Q 



00178000 
00179000 
00180000 



00181000 
00182000 
QQlti3Q00 



00184000 
00185000 
Q0186QQQ 



00167000 
00188000 
0-0189000 



00190000 
00191000 
00192000 



00193000 
00194000 
00195000 



00196000 
00197000 
00198 QQ Q 



00199000 
00200000 
0Q2U1000 



00202000 
00203000 

Q02Q400Q 



00205000 
00206000 
00207000 



00208000 
00209000 
00210000 



-151 

..I7| 



52 
53 



li? 



10 

11 

12 



13 

14 



15 
16 

17 



19 

20 



22 
23 
24 
25 
26 



27 
28 
29 
30 



31 
32 
33 

34 
35 
36 



37 
I 38 

39 

40 

i 41 

42 



43 
44 
45 
46 
47 



48 



53 



55 
•6 



G 



"RDCTABLE" 
"OPTION " 
"MtSSAGEH" 



"PRNTABLE" 
"INITIAU" 
"F1MIX ?! 



"NUTHINGT" 
"STACKOVE" 



"RETURN " 
M OTH£RCLO w 
"SPACESTA" 



"STACKQ " 
"LOGARRAY" 
" SPAC F R " 



"LOGUINE w 
"INTRGATC 
" LMA X !1 



"5TAMAX " 
"TNAOG " 

"LASTRESU" 



"resulthq" 
"wORkerst" 

"CT " 



"READYEND" 
"FURCENO " 
"RQYRPTFN " 



M SWAPENO M 
W L.0GLINE2 W 
" B I GUNS !! 



"CHUNKMAX" 
"DIRECTOR" 
"ARfiH Z 



"YECH " 
"SYSNO " 



"EUW " 

"PUNTER " 
"NUPR C1 CF3" 



"CORE 
"EUQ 

, — w r ** * 



"LOAVAIL ' 
"TAR 

"IO Q UESL0 1 



COMMENT*** 



0*0*26, 
0*0*22. 
"OLDER 



',0* 22 * 



0*0*26* 
M ZE 

0*0.2?. 



"*0*10* 



0*0*22* 

"ODO 

"RFIBW 



",0*32* 
-"*0*32* 



0*0*32* 
"SE 



"»0*10* 
"*0*22 * 



0*0*22* 
0*0*26, 
Q*0*?6* 



©«0*22* 
"TR 



"*0*23* 



0*0*22* 
0*0*26* 
2L1 



1 * Q f 2 3 » 



m lder 

"ACK 
0*0*26* 



"*0*26* 
"*0*22* 



0*0*22* 
0*0*22* 

an 



-"*0*?2*. 



0*0*22* 
0*0*22* 
0*n*32* 



0*0*22* 

"YFREE 

0*0*26* 



"*0*22* 



0*0*22* 
0*0*22* 
Q*Q#?3* 



0*0*22* 
0*0*26* 
" STOP 



"*0 >2?* 



0*0*22* 
0*0*26* 
0*0*?6* 



0*0*22* 
0*0*26* 
iULS 



"*0*22 * 



% 34 
* 35 
A 36 



% 37 

* 3d 
% 39 






40 
41 
-4-2- 



% 

% 



43 
44 
-45- 



46 

4 7 

JUL 



% 
% 



49 

50 



% 
% 



S2 
5 3 

3JL. 



% 

% 

JL 



5b 
56 



50 

59 

JbSL 



% 
% 



61 

62 

_fL3_ 



% 
JL 



64 
6b 
At, 



67 

66 

jfcS_ 



70 

71 

12. 



% 

% 

% 



73 
74 

25- 



% 

X 



76 
7? 



00211000 
00212000 
00213000 



00214000 
00215000 
00216000 



00217000 
00218000 
00219000 



00220000 
00221000 
00 22 200 



00223000 

00224000 

.0112.25000. 



00226000 
00227000 

00229000 
00230000 
00231000 



00232000 
00233000 
00234000 



00234010 
00234020 
00234030 



00234040 
00234050 
00234n<sn 



00234070 
00234080 
00234082 



00234084 
00234086 
00 2340 88 



00234090 
00234092 
QQ2 3 4 Q94 



00234096 
00234098 
00234100 



00234102 
00234104 
023 4 10 6 



* * *************************** * *********** ****** ************* 



FOR FAT.H TDFNTTFTfR nFFINFH IN THF ARRAY "PRTS*. TMFRF MUST Rp 



A CORRESPONDING 4 WORD ENTRY IN "INFO". THE FIRST THREE WORDS 
ARE RESERVED FOR THE IDENTIFIER TEXT, THE FOURTh MUST CONTAIN 
TH E C LA SS OF THE IQFNTIFISR AS D E T E RM I NE D BY TH E. E SPO L C O MP IL ER , 



00235000 
00236000 
O Q237QQO 



THIS CLASS APPEARS IN THE FlgST FOUR COLUMNS OF THE STUFF CARD 
FOR THIS IDENTIFIER. IF THE CLASS IS NOT KNOWN, A ZERO MAY BE 
HSFn IN THF "INFO" ENTRY FOR IT. HDWEv/FR USING A fil A&s flF 7FRn 



00238000 

00239000 
00240000 



WILL 



INCREASE THE TIME 

IDENTIFIER, NOTE 

"TNFG" MUST CONTAIN A 



FOR CONVENIENCE* THE 

ASSIGN AND WHICH MAY 

PRO C ID _ — 



NEEDED TO LOCATE THE PRT ADDRESS OF AN 

THAT ALTHOUGH ARRAY "PRTS" MAY CONTAIN GAPS 

DUMMY ENTRY COMPRISED OF ALL ZEROES, , 



00241000 
00242000 
00 2 430 Q 



CLASS NUMBERS THAT THE EsPOL COMPILER MAY 
APPEAR 8N A STUFF CARO ARE LISTED BELOW I 

=!oa, ■■ ■ . ■■ . ■ ,. , 



00244000 
00245000 
00246000 



00248000 
00249000 
00250000 



41 II 



52, 
-'.3 



^r 



! 2 

3 
4 

) 5 
6 
/ 

I e 

9 
10 
i 11 
12 
13 
M 
15 
16 
17 
IB 



19 
20 
21 
22 



) 23 

24 

25 

) 26 

27 

28 

| 29 

30 

31 "* 

I 32 

33 

34 
> 35 

36 

37 
l 38 

39 

40 

I «1 
42 
43^ 



JO 

a* 



45 

46 

I « 

«a 

49 
, 50 
51 
52 
53 
54 
55 
56 



STRPROCID 

8Q0STRPR0CIC 

R,EA|.STRPROCle 



INTSTRPROCID 
BOOPROCID 
RFAI PRflCTn 



= 12** 
= 13** 
qltil* 



INTPROCID 

BOGIO 

RE ALTD 



sl5#* 
«18 » * 



00231000 
00252000 
0»2fr30QQ 



INTID 

BOOARRAYID 
REM ARRAY TH 



= 19** 
= 21** 



00254000 
00255000 

00256000 



INTARRAYID 

NAMEID 

INTNAMEIP 



= 23** 

*25*» 



00257000 
00256000 
0Q2b9QQQ 



= 27** 
= 30** 
g-3-jJLi 



00260000 
00261000 
00262000 



00263000 
0C2640Q0 
0Q2 65 Q0 Q 



LABELlD «32f* 00266000 

*********#********#******************************#** *****##**#********>■ 00267000 
PRQfiEDHRF SFTIIPXN A M EA NDXNAM . SJ nniftunnn 



BEGIN 

STREAM 

BEGIN, 



PROCEDURE FILLXNAMSCXNAMS); 



oi**xnams; 

OSI* 8tIT H NTl 
fVSlB fit TT«MT? 



JLL 



DS is 8LIT"NT3 
D5»= 8LIT"NT4 
D S .= SL IT "NTS 






OSI* 8LIT"NT6 
DSI« 8LIT"NT7 
nSlB 8L1T"DATE 



DSJ= 8LIT"CL0CK 
DS»= BLIT^XCLGCK 
US?« »|,TT w RFAnY 



it; 



0S»» 8Ln B """ , " , ""* n J 
DS8* 8tlT"KLUMP "* 
DS«»1flLIT"FTHSTnrfK 



81.IT"LASTUECK"; 



OS! 

DS:= 8LlT"0IRDi5K 

D$»» fll lT"MFHnRY 



0.3 1* 8tIT M RRRMECH "> 
END OF FILUXNAMS; 
ARRAY TfACTtJAI PRTRASF t ;> i HJ 



INTEGER I#j; 
FILL TC*] WITH 
1?3*1*QQ* 



* XNAMES 



120**1*01* 
119*1*02* 
l?7»l>03* 



125*1*04* 
124*1*65* 
l?6* j »n6. 



128*1*07* 
112*1*08* 
113*1*09* 



114*1*10* 
115*1*11* 
U6*1 *12* 



117*2*13* 
118*1*15* 
122*1*16* 



00209000 
00270000 
00271000 



00272000 
00273000 

oo274nnn 



002/3000 
00276000 
00P77Q 



00278000 
00279000 
00280000 



00281000 
00282000 
00283000 



00284000 
00285000 
00286000 



00267000 
00268000 
Q269QQ Q 



00290000 
00291000 
00292000 



00293000 
00294000 
00295000 



00296000 
00297000 

0Q29aoon 



00299000 
00300000 
QQ3Q1QQQ 



00302000 
00303000 
QQ3P4OQ0 



00305000 
00306000 
00307000 



00308000 

00309000 
OQ31OQ00 



N 

2 
3 

4 
5 



I 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



20 
21 



22 
23 
24 
25 



26 
27 
28 
29 



30 
31 
32 
33 
34 
35 



36 

37" 



38 
39 



40 
41 
42 
43 



45 
46 
47 
48 



49 

50 



51 
52 
53 
54 



55 
56 



129M»l7# 

i2i»i»ia;% 

FIH.XNANSf XNAHS) 



00311000 
00312000 
QOJ13000 



JlBACTUALPRTBASE-i; 00314000 

FOR I tsACTUALPRTBASt STEP 3 UNTIL 211 DO 00315000 

XNAHErJI«J + l3t»0»Tf I]rB»3BI .03aTCT + l]riBt33tl53*TrT+2]r33l33ll5] J QQ 3 16000 



end setting up xname andxnams; 
real linktype; 

ARRAY ARFATYPEf OtTYPMAX+l 3> 



procedure fillareatype; 

CGMMENT***AilEATYPECLlNKTYPE3* WHERE 
LINK TO BF PRTNTEn* rPNTATHS A rOnE 



00317000 
00317100 
00 31 7 105 



LINKTYPE IS THE TYPE OF MEMORY 
WHICH DFTFRMINFS THK FORMAT FOR 



00317110 
00317120 
QQ31713Q 



PRINTING THE AREA » IsOCTAL* 2=ALPh A/ OCT AL> 3salPNA UNLY 003l7ia*J 

DUMPMEMQRYANDNOTESTACkS DETERMINES C1NKTYPE FROM [3:63 OF A PRIMARY 00317146 
LlNKt PRlNTCflRE. THEN OBTAIN S AHSATYP E [ l INKI *PE J AND PR IN TS TH E A REA 00317150 



IN THE APPROPRIATE FORMAT, ELEMENT* THRU TYPMAX CORRESPOND TO 
POSSIBLE LINK TYPES, ELEMENT TYPMAX+1 IS USED TO CONTAIN THE DEFAULT 
FORMAT CODE USEO IN PRINTTNG AN AREA WHICH [MPS NOT BEGIN WITH A I InK 



OR CONTAINS A CLOBBERED LINK, THE CONTENTS OF AREATYpE ARE NU 
USED IF DUMPQCTALONLY, DUMPALPHOCTAL OR DumPAlPHAOnlY ARE SET 
IF AN AVAILABLE ARE* US BEING PMNTHJ hHO.SE CHRRKSPHNU ING FORM 



00317160 
00317170 
3171 



_Q£L 



&o_ 



CODE IS NOT NEGATIVE 
BOTH IN-USE AND AVAI 
CODE OF +2 WOULD CAU 



T 

UH 



00317190 

00317200 
00317; 



AVAILABLE AREA 
FILL AREATYPE 
2,** UNKNOWN (.0) 



S, IF 
[*3 HI 



t FOR EXAMPLE* A NEGATIVE CODE SUCH AS -2 
LABLE AREAS TO dt FORMATTED AS ALPHA/OCTAL 
S E ONLY IN-US E ARE A S TO BE PKINTFD I N A LPH 



L240- 



PRINTED. 
TH * 1-OC 



WOULD 
TAL* 2 



UE PRI 
=ALPHA 



NTED I 
/OCTAL 



CAUSES 
# A 
A /OCT AL - 



00317230 

00317200 

-00317250 



N OCTAL Q 
*3sALPHA 



NL.Y, ****; 



1** CODE(t) 
2»* DATA(2) 
?»% I0BUF(3) 



00317260 
00317500 
00 31 7510 



00317520 
00317530 
0Q317540 



If* ALGFIBC4) 
2»X IN0BUFC5) 
?t* CQBFIRC6) 



1** INTSEG(7) 
If* HEADER(8) 
1 »1 (9) 



00317550 
00317560 
00317570 



1*X 

1** 
_2x*_ 



1** 



(10) 
(11) 
STACKC 12) 

Kit 



00317580 
00317590 
00317600 



(13) 
(14) 
1** f 153 



00317610 
00317620 
00 3 1 76 30 



00317640 

00317650 
00317660 



1** (16) 
1** (17) 
lt% (18) 



1»* (19) 

2»X CIDR0W(20) 

1»* (21 ) 



00317670 
00317680 
00317690 



1#* (22) 

i;****DEFAULT IF UNA 
DFFINE NF.XTPAGF.a 



00317700 

00317710 

-O031 77 P0 



FORMAT STARS(20( 

STARZC*( M 

FORMAT MCPHORCTSMEP 



BLE TO UETRMINE LINK 
HRTTFCPfPAQFJU; ,_ 



TYPE(TYPMAX+1) 



00317730 
00317740 
00318000 



.SWITCH FORMAT MCPOPTT 
("CHECKLINK"), 
(" UC P W ) > 



*»)>! 

.XV.">A1»" ."»A2> W 



CQMPILE-TIME OPTIONS*"); 



00319000 
00320000 
00321000 



00322000 
00323000 
00324000 



("DEBUGGING"), 

("OFX")* 

("DUMP"), 



00325000 
00326000 
03 270 00 



471 



IV 

|li4| 

155 



h 



i £ 

9 
10 
i 11 
12 
13 
14 
IS 
IS 
17 
18 
19 ~ 
20 
21 



22 
) 23 

24 

25 
| 26 

27 

28 

I ■ 
30 

31 

I 32 
33 
34 

I 35 
36 
37 ~ 

I M 
39 

40 

I <1 
42 






43 

| 44 

45 

46 

I « 

48 
49 
| SO 
51 
52 
53 
54 
55 
56 



("SAVERESULTS"), 
("SHAREDISK"), 

("STA.TT.STRS")> 



("TWXONLY"), 
("AUXMEM"), 

CBft^nni run*!. 



003*8000 
00329000 



("SEPTICTANK' 

("PACKETS")* 

("MONIT O R"? * 



')» 



00331000 
00332000 

nn33?ino 



ALPHA ARRAY IDC *• ? 3 ;XUSED TO CONTAIN AN IDEnT WHOSE PRT LCC IS SOUGHT 
PRnfrn i tBF- TARi F» nniciiPf tn.| nniARBAV inrm^MTf C fft LQr; 



00332200 
00332300 
00 132 /1 00 



BEGIN 
INTEGER 

B OO L EAN 



00333000 
00334000 
003 3 5000 



I'N; 



STR E AM PROCEDUR E CClT I Q L uT C A i N » B } i VALUE hi 

begin sxi»ajdii*b;taiiyi»q*- 
if n sc * dc then tall*»»1> 



00336000 
00337000 
Q03 36 Q0C 



GOTIDENTttTALLY; 



enu got ident j 
klassjbklass-i; 
FOR i:s 129 STEP 



00339000 
00340000 
003 4 1000 



1 UNTIL PRTMAX UP 



IF NI"NAMEtI],Cl8*303 NEQ THEN 

IF N,FF*L0C OR LQC«0 THEN 

IF K i A SS I fq n nR k i A SS « N * Mr rTi.nis3 thfm 

IF GOTlDENTCNAMStN.Cf- 3> N : = 8*N .FF# ID I 0] ) THEN 

BEGIN 



00342000 
00343000 
QQMiUQQQ 



00345000 

00346000 
nn3«7nnn 



l qcmi; 



r»*PRTMAX+2;*F0RcE 
ENDj 

IF I GE O PRTMAX »2 THEN 



FALL THRU 
ELSE IQCia-U 



00348000 
00349000 
00 3 3 000Q 



END OF TABLELOOKUP; 

DEFINE GE.UD.L0C(QETlDLOCl,GETIOL8C2#GETlDLOC3#Gf.TlDL0CflJ« 
BEGIN 



00351000 
00352000 
003 53 00 



FILL IDOJ WITH GETIDLGC1#GETIDLQC2»GETIDLQC3> 
TABLEL00KUP<ID»GETIDL0C4); 

END*?* 



00354000 
00355000 
00356000 



PROCEDURE FIXDEFINES; 
BEG* - 



00357000 
00358000 
00359000 



vuuwnu i quirting) 003 

In comment********************************************************** qq3 

THIS PROr FDURF IS RlSPONSTHLF FUH FJLNjUM ThL PRT LOCATION OF AN 003 

IDENTIFIER DEFINED *N "PRTS" FOR WHICH THERE IS A CORRESPONDING 003 

ENTRY IN "INFO". IT DOES THIS BY CALLING "TABLELOOKUP" TO 003 

^PERFORM A LINEAR SEARCH riF "NAMES* T o i ftp Air am TnriuTTirrrB tm nm 



00360000 
00361000 

62Q00 



PERFORM A LINEAR SEARCH OF "NAMES* TO iqcaTE Ah IDENTIFIER IN 

"NA.M5" AND COMPARE IT WITH THE UNE GIVEN IN "iNhO", IF AN 

IDENTIFIER CAN NOT BE LOCATED I IN »NAMS"# Tht "PRTS" ELEMENT 

LEFT UNCHaNGED--OtHERWIsE, THE ADDRESS OdTAltNEU Is STORED 

IN "PRT*" 

INTEGER I,L0CJ 

INTEGER STREAM PROCEDURE IDL£NQTH(A)J 



3O3000 

364000 

00365000 



IS 



'PRTS", ****************************** *#*■**********#**#*#*******; 
•GFR t.mn 



BEGIN LOCAL L* SIJsLOC l; UiiaAJ 

3CIF 8SC*DC THEN JUMP OUT ELSE BEGIN T ALL Y :=T ALL Y+l ; 

siisLOC i end); idlength:»tai ly; 



00366000 
00367000 
0Q36BQ QQ 
00369000 

oolroooo 

00371000 



end idlenghth; 

FILLlNFOJ 

FOR Il»0 STEP a uwtii 



00372000 
00373000 
00374000 



INFOMAX 00 



IF (LOCJsIDLENGTRCINFOU J>)«0 THEN ELSE BEGIN 
M0VE(INF0CI],IDC0]*3); KLASb j slNFQC 1+ 3 ] i 

TABLELOOKUPdD^LOCj; 

PRT5CI/43«*IF LQC GTR THEN LOC ELSE PRT5CI/4J END; 

XLASS»#0; 

IF PRT32>t46H3 THEN BEGIN FOR U»0 STEP 1 UNTIL PRTSMAX DO 



00375000 
00376000 
00 377000 



00378000 
00379000 
00380000 



00381000 
00382000 
00363000 , 






>r 



1 

2 
3 
4 
5 

e 
i 

8 
9 
10 
11 
12 



13 
14 
15 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

P7 



WRITECP#<"PRTS[%I3*' , J* H »U>,I*PRTSCIJ); 
WRITECP[PAGE3 > END; 
EM) FIX I NG DEFIN ES ; 



boolean stream 
value b; 

BFGIN 



PROCEDURE BIT0NCW»B)> 



SIIbWJSKIP B sb; 
IF SB THEN TALLY*; 
BlTON t aT ALL Yi 



li 



end of biton; 
procedure nextitem; 

BE G IN 



WRITE(P); 
WRITE(PtDBL3»STARS); 



en d ; 



PROCEDURE 
BEGIN 



PRINTMCPOPTIONS; 



WRlTE(PtOBL 3 *MCFHDK»LEVE L > S UflL£VEL? J 



FOR l\ = 9,\0,Q,\.»2, 
IF BIT0N(MCP»47-I) 
WRITECPCDBL1) ; 



3#4#13#l2#b#ll'6#7»6 QU 
THEN KRITE(P*McP0PTU3 ); 



end of printmcpoptions; 
real date#clock*xclock; 
boolean array mqq0n[0t7]j 



INTEGER ARRAY ITDrO«9]J 
ARRAY RTD[0:53; 
FINE TIMEANAtYZl 



-DE 



XD- 



* lTaf03*j 



DATEANALYZE 
TIMETAKEN 
DATFTAKFIVI 



D 



iTocn*» 

ITDC2]*, 

iTn[3]t. 



TIMELASTHL 
SINCSLASTHL 
MINUTES 



SECONDS 
DAYS 
YFARS 



nou3#, 

lTOC53*# 
I T Q [ 6 3 a , 



ITDC7]#, 
IT0'C8J## 
ITDt91*i 



DEFINE DATX 

XCLOCX 

_ CLOCX 



HT0C03#, 
HT0C1 J#* 

RJJ 1L 2 J JU 



TEMP 

KINDS 

MCPVERSION 



RTDL33#, 
RT0C4]## 
RTO£53»; 



FORMAT OUT FMXX("DATE ANALYZ 
"TIME ANALYZED "M2 
X1C"MCP VERSION NUfr 



i"> I2>" 



ED " 



>\2t"/"p\l,"/ n pYi.t 



iBLR. 



-L2J- 



"DATE TAKEN », I2,"/"# 12*"/ 
"TIME TAKEN ", 1 2 * ** « "> 12, " 

X1MARKXI("MCP VERSION NUMBFR 



»M2/ 

12), 
M *Al*A*/ 



I." 



"date taken 
"time taken "# 
F MX 2 C"T IME of th f l ast h al t- 



SYSIDC*DUMP TA«EN ON SYSTEM M * 

FTAP0SKfA4," FILE CONTAINING 

Fr.OMVAL( w COM MQ N V ALUE USED I 



£<J2 "»"i'»"/ 

"*I2» H /M2'VM2 / 
"»I2# H »MZ»"? M M2)» 
T-LQA D VI 2, » w iVM 2. ' , '' , >. I2)» 
»«A1)/y 



AD' 
DUMP IS %A1>A6*"/%A1*A6), 

"iB^j ■. ;r ' . ^..:^^^^.:■' ^^ - 



F ANAL ("ANALYZER VERSION-"* Al ), 
FBLANKS(X120}# 
FM3CTIME SIN CE LA ST HAL TLQflD " > l il," I" * ] ? , r * 12?/ 



FORMAT BADBEDC** 
FORMAT BADDATE <" 
BADXCtqCK 



******* BAD BED ENTRY *'#*■***.*,**"); 

BAD DATE TAKEN ,...,")# 

("BAD TIME TAKEN . « . , . » ) » i : 



00364000 
00Jb4l00 
00 1 65 



00414000 
00415000 
00416000 



00417000 
00^18000 
4 1 9 



00420000 
00<*21000 
00422000 



00423000 
00424000 
004 25 



00426000 
00427000 
00 428 000 - 



00429000 
00430000 
Q Q 4 3 1QQ Q 



00432000 
00433000 
00436000 



00437000 
00438000 
00439000 



00440000 
00441000 
00442000 



00443000 
00444000 
0Q445Q0Q 



00446000 
00447000 
QQ448 00Q 



00449000 
00450000 
0Q451Q00 



00452000 
00453000 
00454000 



00455000 
00456000 
00457000 



00458000 
00459000 
QQ46Q0 QQ 



0Q4O10Q0 
00462000 
QQ46300Q 



00463100 
00463110 
046 3120 



00463150 
00463200 
QQ4 64Q 0Q 



00465000 

00466000 

00467000 






h- 



e 

9 

10 
11 

12 

13 



16 

I » 
18 
19 

, 20 
21 



24 
26 



27 

28 

i 29 

30 



31 

| 32 

33 

34 
I 35 

36 

37 " 
I 38 



42 

43 

(44 

45 

46 

I « 
48 

49 

I BO 






52 

| S3 
54 



55 
I 56 



BADCL0CK( M BAl) TIME OF H/L"); 
FORMAT BADCELL3C"*URD J HAS THE FLAG 

PRnrrnuRr timfs fWHFN.nws, mini. set u 



BIT ON "); 



REAL WHEN; 
BEGIN 
INTEGER T; 



INTEGER SEC*MlN#HRji 



00468000 
004G9O00 
Q0470000 



IF WHEN LS5 



OR WHEN GTR 5184000 
ELSE BEGIN UsWHEn* 
HRS» = T DIV auflOOi 



then hrsj=min;=secs*ioo ^overflow 



00471000 
004/2000 
00473000 



MIN»*T DIV 3600 MOO 60> 
SEC«*T DIV 60 MQD 60* 
END OF TIMES PROCEDURE ; 



END. 



procedure date scad ate/ month* day, ye ah); 
value adate; 
alpha aqate8 



INTEGER MONTH. DAY. YEAR 
BEGIN 
- — RFAL Y»QtM; 



LABEL ON; 

ARRAY DAYTABLE [OSllJ; 

STRFAM PRnCFDUHF CONV ( YL AH . |j A Y . n AT li 



Mt* 



VALUE DAT ; 
BEGIN 
LQC DAT? 



SI is. .SI +3; 

di := year; ds 
PI f= day? ns 



;= 2 oct; 
?= 3 qct; - 



end; 
fill daytable [*] with 

0. 3 1.59. 90. 120. 15 1.18 1.2 12. 24 3. 273. 304. 334 t 



CQNV CY,D*ADATE); 
IF (<Y MQD 4)s0) AND 
BEGIN 



(YXO) THEN 



m ;s 1; 



If «6C 
BEGIN 
fiQ TO UN; 



THEN 



end; 

IF D > 

end; 



fcO THEN D : =0-1/ 



FOR M t* STEP 1 UNTIL 3 1 DO 

IF DAYTABLE tMl GEO D THEN 



GO to on; 



month :« m; 

IF. M = THEN * = ELSE *GU 

DAY 1* P - paytarUc m-u ; 



AHEAD 



.■''■■:■■'■.'.". YEAR ''«*Y;:, 

END OF PROeEDURE DATE; 
PROCEDURE GETlMESCXCLHCK.ITlMFS.ifcTlMEsnVALllE XCLQCk; 



00474000 
00475000 
00476000 



00477000 

00478000 
00479000 



004*0000 
00461000 



00483000 
00484000 
0048^000 



00486000 
00487000 
00486000 



00489000 
00490000 
049 1000 



00492000 
004V3000 



00495000 
00496000 
00497000 



00498000 
00499000 
005U0O0O 



00501000 
00502000 
00503000 



00504000 
00505000 
Q05U6000 



00507000 
00508000 
00509000 



00510000 
00511000 
00512000 



REAL XCLOCKHnTEGER ARRAY I T I MES 103 ; A L PHA ARRAY ATIhESCOJl 
BEGIN. % RETURN HtM«S>60THs IN ELS 0-3 OF I II MESC BJ NARY ) & ATIMESCBCL) 
PFFINF T»Xrl nrK.«;» TIM E TjJ $0Th5 



00513000 
00514000 
nnsisnnn 



STREAM PROCEDURE CQNVERTIMESC I TIMES* ATIMES)J 
BEGIN SIi«iTlMES;DU»ATIMES;4(0S»»8DEC?EN0; 



00^16000 
00^17000 
00518000 



.I.TIHESC03 •■! DIV 

ITIMESCl]»sT DIV 
TTIMESCPUxT OTV 



216000; 
3600 MOD 60; 
ftO MUD ftp; 



00519000 
00520000 
00521000 



ITIMES[3]I«T MOO 60; 

CONVERTIMESC ITIMESC*]* ATI MESC* J); 

X NOTE IN CALL ON GETIMES* ARRAY ATlMES 



00522000 
00523000 
00524000 



& ITIMES MAY BE THE SAME 



00525000 
00526000 
00527000 



H 
! I 

I': j 



16 

17 



19 
20 



22 
23 
24 
25 
26 
27 



28 

29 

30 

31 

33 

34 

35 

36 

37 ~ 

38 

39 



42 



44 
45 



47 
48 



49 
50 



52 

53 



54 
55 
56 



END OF GETIMES; 

INTEGER MAXM0D*MAXC0R; 
INTEGER TARLFSIOC; 



BQOUEAN LNKS0K»AVALNK0K»S0M0KF*60M0KB1 

* UTILITY PROCEDURES 

REAL PROCEDURE UCTALCN)** 



00528000 
00529000 
00530000 



00531000 

00561000 
00*3^)2000 



VALUE n; % 

INTEGER N;% 

I NitHallsQ SO THAT IF ai CUNTAIN S AT MUST a HALF -IwlIRn THEN 



005o3000 
OO5O4000 
QQ 5u 5 0Q C 



* OCTAL IF PRINTED USING FORMAT* OR A FORMAT FOR FEWER OCT ADES00566000 
% WILL BE THE OCTAL REPRESENTATION OF N OO&67OO0 

QfiTAH»N,fAStaitf yp N>7 THEN OCT AL CN . r.3d I PI U F.t.SF 0)r3ICl39H 00568000 

00509000 
00570000 

0C571Q0Q 



REAL STREAM PROCEDURE CHRSC AT* 5Kl PP I NG*mAN Y ) * 

VALUE skippincmany; % 

* RETURNING THE 7 OR LESS CHKS HEQUTRFO 



BEGIN 

SH*ATi 
OlfLOC 



siisSi+skipping; 

CHBS; D Si =B LIT»Q"J 



uii»pi-hany; 



DS»*MANY CMR; 
END CHRS; 
INTEGFR PROCEnURF 



HihAi Ff mr.); 



VALUE L8Ci 
INTEGER LOC; * 

HTHALFfCHRSCMM nr.RQw,t Qr.COl I.O.aiJ 



INTEGER PROCEDURE LQHALFCLOCO; A 

VALUE LOC; 
INTEGFR LncJ JL 



LOHALF: «CHRS (M[L0C,ROw, LOC »CQL3^^)> 
BOOLEAN STREAM PROCEDURE FLGB IT ( WORD ); 
BEGIN 



SlisWORDJ % 

IF SB THEN TALLY 1 = 1 i 

FLfiB T T 3 =T Al.,1 y;_1 



end flgbit; * 

boolean procedure pdataoesc c at* what )j 
valuf at; intfgfr a t ; heal hhatj- 



ARRAY THISROW,LASTROW[0:11 j; 
SAVE ARRAY ALINECO : 1 8 ] / 
ARRAY BL I NE CO: 1 6 3/ 



FORWARD 



% 



boulean notprintcall; 
boolean avalnk; 

BOQI FAN STREAM PRnr.CniiRE 



VALUE 

BEGIN 
LABEL 



COMPARFinnRUSf S»D.wU 



W. 



XIT. 



si»*s;oi»«d; 

W(1F 8 SC N£Q 
T A LLY l ai; 



DC THEN JUMP OUT ID XIT). 



END 
Ji 



xitjcomparewords«=tally; 
comparing words; 



DEFINE PRINTCPRINT1,PRINT2)«IF NODUmP THEN ELSE 
PRINTCeRE(PRlNTl,PRlNT2)#;x 



PROCEDURE PRlNTCCRECFROM*TOO)i 

VALUE FRQM*TC0; % 
Integtr FRnM.-rno; it 



BEGIN * 

DEFINE FORI ■ FOR 
OFFINE OCT A PE « (p Si« 3 



I t» STEP 1 
RFSETi3(lF SB 



UNTIL IX DQ#; 'X 
THrN nSI«SFT FLSF 



005/2000 
00573000 

,005 740 00 - 
00575000 
00576000 

- 00 5770 00 



00578000 
00579000 
nnaannnn 



00501000 
00582000 
QQ563000 



00584000 
00585000 
00586000 



00507000 
00568000 
00589000 



00590000 
00S91000 



00593000 
005*4000 



00594500 
00594600 
00595000 



00596000 
00597000 
00598000 



00599000 

00600000 

-00601000 



00602000 
006G300Q 
00 .60 3899 



00603900 
0Q603910 
0060 3 950 



00604000 
00605000 
006Q600Q 



00607000 
00608000 
00609000 



ibii 

6, 

S3 



_L°.'-- 



>r 



IS 
17 
18 



19 

21 

22 

I 23 

24 



25 
I M 

27 

28 

| 29 

30 

31 

: 32 

33 
34 
35 
36 



37 
I 38 



39 



42 



I M 



52 



DS5=RESET*SKIP SR)}# ; 
STREAM PROCSDURE BU I LDC F RGM, LI NE *X A, NA . XB,NB »NC » AL> AO ) ; 
VALUE FRQMtNAiNH>NC>AL»AGi..ai 



BEGIN D!l»LrNt|SIl»LOC FRUM; S I J*S I+5;SKIP 3SB; 

5 octadE; ds :s lh »• •*; aoc si ;* xa; * 

N-AfnSi=LTT" w x p f nsi»LTTW g : ft nr.TAnF))iSinva; 



00610000 
00611000 
00612000 



NBCUS:=LIT" ";2(USJ= 
NCCDSJS19LIT" M ); DS^lIT" 
AL(SIUXA;NA(DS?=LTT" w ?,ns«afl 



00613000 
00614000 

no6i f iooo 



LIT" ' 
C H R)J 



;e octade)); 



SH^XBJNBCDSl-LIT" H ;os«<»8 CHR)* % 
NC(DS«*9UT" "); DSI.6 LIT n "}J.END BUlLD; % 
STREAM PROCEDURE MUfA.B)! BEfiTN ST laAiPT l«BJOSl» WHS EMD Mul 



00616000 

00617000 

-Ofl6iaQ0U 



STKEAM PROCEDURE EXPAND C AlI NE , UlI NE , N ) ; VALUE N? 

BEGIN Dll«BLINt.; 18(DS*s8LlT" "); QIs=BLINE; 
S4-UAL-IAEJ _&X»«Slt7J 



00619000 
006«0000 

nn6?iooo 



DI*«0l+7; 



0Q62150Q 
00621510 
00921520 



NC2C6 octade; di»=di+i>; su«si + n; 
end expand; 

BOOLEAN MATCH. FIRST. I AST.SfARnt ' 



INTEGER I#R»STARCOUNT; 

BOOLEAN A.L*AOJ INTEGER I, lit 
LABEL FDITI, T N E / 



00621530 
00621540 
00622000 



IF DUMPALPHAONLY THEN AL:*TRuE ELSE 
IF DUMPALPHAOCTAL THEN AQJsTRUE ELSE 
IF WOT DtJMPnr.TAI nM| , Y THEm 



00623000 
00624000 
QQ62 44 50 



IFCI:»AREATYPEHF NQTPRINTCAll THEN LINOTYPE ELSE 

TYPMAX+1J) GTR AND AVAtNK THEN ELSE 
IF I i8 A B S Cn = 3 TH E N AH = TRUF E L S E ^- , 



00624500 
00624600 



IF I«2 THEN AOJsTRUE; 

Zll*CZi*IF AL THEN 12 ELSE IF AL»*AO 

IF NOT CAL OR AO ) THEN AQ-l-«TRUii - 



00625000 
00626000 
QQ 6 2 7QQ 



THEN 4 ELSE 6)-W 



AOJsAO AND TRUE; AL!=AL AND T.RUEJ % 
STaRC0UNTi*IF Z»12 THEN 114 ELSE IF 

F I R S Ti a TR U Ei . — 

TOO»*TOO,£ 32*16]; F80MI«rR0M,t3.a-*l63'i 
IF TOQ>fRQM THEN % 

nn % 



00627500 
00628000 
00629000 



Z»6 Then 120 ELSE 119 



00630000 
00631000 
006 32000 



BEGIN % 

IF NOT LAST 
BEGIN 



00633000 

00634000 
00635000 



1= (TOO - FROM uEfl Z) fHEN * NOT LAST LINE 



JJL 



IF FIRST THEN 
BEGIN 
FROM. ROWsCFRnM+7). ROW T HEN Mf]\/E ( MfcFROM.Rfl w .FRUM. f.Ql 1 



00636000 
00637000 

no6jflnno 



LA. S TRQWi? ? 



ELSE % 



00639000 
006*0000 
nn641nnn 



FORI MVCMt (FRGM+I ).ROrt*(FRGM+n #C0l3* 
LAS THQ H ni )* 



stard8*fal9e; 
if 2*12 then go 

FIRSTt»FALSE; 



00642000 
00643000 
00644000 



eoitline; 



00645000 
00645500 
00646000 



END 

ELSE 

BFGTN 



IF FROM.RQW*(FROM+Z),ROW THEN MOVEC MlFRQM.R0*UFRUM.CQL3>THISR0W»Z ) 
ELSE X 

' FORI MV(MUFRQM»n.RQW»CFRQM+I).CQL3> 



00647000 
00648000 
0Q64 9QQQ 



00650000 
00651000 
00652000 



THISHOWCIJ); 
IF (MATCHI»COMPAREWORDS(THISRbw[03»LASTHOWCOJ#2)) 

AND NOT STAHD THEN 



00653000 
00654000 
00655000 



BEGIN 



IF DOUBLESPACE THEN 
WRlT£(PlQ8L3»STAftZ»STARCQUNT) ELSE 



00656000 
00657000 
00658000 



iii, 
1«l 



h- 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 



20 
21 



22 
23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 
34 
35 
36 
37* 



38 
39 
40 
41 
42 



43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 



55 

56 



fcRITE(P*J>rAFU#STARCOcN"N* 
STARD**TF<UE.; 



FNu 



IF NOT -MATCH THEN 
8EGIN 
STABOIkFAi sr; 



006^9000 
00660000 
00601QQQ 



006O2000 
00663000 
00664000 



MQVECTHlSR0W#LAS1rtaw#O; * 

eno; 

_E-W4 , 



0Q6650Q0 
00666000 
) 6 6 7l 



end;x if 

IF LAST 

mx~ 



NOT LAST 

OR 
STABp QR 



-OOJ 



UWW3- 



00668000 
00609000 
00670000 



BEGIN 



NOT MATCH THEN 



E 1 TLIN E» 



R ' :■ MI 

IFCFRQM 
8UILDCF 



00671000 
00672000 
00 67 2 500 



N(Z#T 
+R),R 

ROM 



oo-froh); % 

OW NeQ FROM, ROW THEN % 
INec»}>MCFHQM.KQH>FRO 



MC 

Z-R ELSE 

Btlll.DCF 



(FROM 

0*AL 
R OM t 



H? 



CROSS 

.COLi 



ROW 
■ SI?' 



ROUND 
'FRQM.CQl 



00673000 
00674000 
00675000 



+R) ,HOrt*OJ/ (FRUM+R).C0L*IF 
*AD) ELSE % STILL IN SAME 



K LSS Z THEN % 
HQW QF M ARRAY 
ALl N FI* ]tMtFRQf<»R Q h>FRnM »CaL] fH » 



006^6000 
00677000 

0067(3000 



mt 

IF Z«12 

BEGIN 



0»03>0>IF R LSS 1 ThtN Z"R ELSE Q#AL>AO)J * 
THEN IF FIRST THEN 



00679000 
00679500 
00679520 



first»=false; 

EXPANDCaHNE>6L1NE'2 + REAL(AVALNK)); 
WRlTE(P[nBL3>l-&*BLlNEL*J); 



00679540 
00679550 
00679580 



end; 

IF DQUB 
WRITECP 



LESPACE THEN WHI TE( F C DBL 3 * 18» ■ A U I NEC * J ) ELSE 

»18» A LlN£[*n; 



00679620 
00680000 

00681000 



end; % 
end until cfrcm : = from + i) geg too; % 

HRITECP3? % , 



END printcore; 

FORMAT TTEMCA5," a " « 2( Q» y 1) > A5 )i 



00682000 
00683000 
00684000 



00685000 
00685001 
00686000 



ARRAY LINE[6»14J; 

DEFINE DISPLAYOBL 

DISPLAY 



bDISFLAY*. 
SGLtnI3PLAYSGLl*nISPLAYSflL2)8 



00687000 
00687500 
0Q6675 20 



BEGIN 



FNHf , 



sglTog*sTrue; displaycdisplaysgli*displaysgl2); 
sgltogj=false; 



procedure display 
value what^ra 

IMTFGFR MHAJ. 



ITlWHAT*RANGE*AOR); 

ngl^aur; 

adh; 



00687540 
00687560 
00 6875 80 



00688000 

00688500 

-QQ6 89Q Q0 



BOOLEAN RANGE) 
BEGIN 
: INTEG ER H »L *T > 



00689500 
00690000 
00690^0(1 



BOOLEAN 
TI=IF PP 
IF NOT P 



pp; 

«*CAO 
P THE 



R = 0) THEN rthAT E|_SE 
N IF PQATADESCCTjHJ 



ad«; 

AND H,[6;iQ] 



NEQ THEN ELSE 



00691000 
00691500 
00692000 



RANGEI*F 
WRITECLI 



ALSi; 
NEC*] 
O CTAL 



#ITEM*0CTAL(T)# 
( H<«HIHAL F( n ?* 



OCTAL(L**LOHALFCT))* 

IF RANGE THEN UC TALC h . [ 32 : 10 3+L ♦ CF- 1 ) 

ELSE " "_L? 



00692500 
00693000 
00693500 



00694000 
00694500 
00695000 



IF 1295WHAT AND WHATSPRIMAX THEN 

MOVE(NAMSCNAMEtWHAT3.CF3»LINEC4]» 

NAMFC W H A T3 .FF ); 



00695500 
00696000 
Q6 96 500 



|4(i 
■111 
4fl( 



61 
b2 



Mi 

I 

h(i 

Ib/j 



>T 



1 

2 
3 
4 
5 
6 
7 

e 

9 
10 



13 
14 
IE 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



27 
28 
23 

30 

31 ~ 



32 
33 



34 
35 
36 

37 " 



38 



40 



SO 



IF SGLTOG THEN WRjTtCP* 17# LlNEt* J ) ELSE 

IF PP THEN 
HRTTE(PLDRL1M7fI IN.LL*JJLi 



00697000 
00697500 
00698000 



end displayit; 

define dispuaycdispl.ay1* displays )« 

DTSPt AYITCCTSPI A¥UDT5PLAY?»fl)* 



BOOLEAN PROCEDURE OPERANOC AT* WHAT ) i VALUE AT' 
INTEGER AT; REAL WHAT; FUBHARD; 
PRDCFIHlRE PUMPRESULTHOLHERi 



0069850Q 
00699000 

00699500 



00703050 
00703075 
O07Q310C) 



BEGIN 

BOOLEAN Y#BUNG; 
REAL RftflfJiKtSIZi- 



ARRAY ACOlllJ; 

LABEL FNO; 
FORMAT RAQPYCTHE- 



00/03110 
00703120 

00703130 



RLSU U TH QL JFH I S MES . StQ UP , ")> 



00703140 

00^03150 

.00703160 



HEADC" I/O DESC 

" STATABLE 

INTRCINTERRUPT 



STREAM 
BEGIN 

. — d iu a ; 



PROCEDURE BLCA) 
la c o s n a L IT J 



RIPTOR n >X6," RES DESCRIPTOR ">Xa> 
CSTJ'SX12' M LINETABLECS13 , VX6#"TU/BUFF M )* 
•L4J : 



-XL 



end; 

DEFINE BUM 
St BE AM PR 



Pi m ItsREAL 
Or.EQURF TUBU 



(S00LEANCI + 1) AND BOOL^-ANC S IZ ) >*; 
UjlB^CJJ VA LUE A tRi 



BEGIN 



sijsloc a; oi*=c; 

P S 8 33 LIT " ";D3{ =2- 



DSi*i 
DS«*2 



E CJ A 8sQi;ur i s u i 'ji 



fill;oij»a; 

OECiDIiaOI- 



OSJsLlT 

2;dsi=i 



fill; 



end ; 



%%%%%%%%%% 

IF LASTRES 
IF PDAT A Q E 



ULT*3 AND RE 
S C<R ESui. THQ t. 



SULTriQLOEK*0 THEN 

PER>R) ANU O P E R ANPC l ASTRES Ut T fL) 



TH EN 



BEGIN 
DISPLAYC 
DISPLAYS 



RESULTHCLUER 
LASTREStlLTiF 



>TRUE)> 
ALSE); 



WRITE C 

r>*r . C f ; 



PCDBLl'HEAP) 
8ll0]-i; 



; 



FOR I*"0 
IF OPERAND 
BUMPIJ GO 



STEP 1 UNTIL 
(R+I,J) AND 
FNPJ £NC; 



SIZ DO 
( JsREALCNOT 



FALSE)) THEN BEGIN 



DO BUMP 
OPERAND( 



I UNTIL 
I+R»J) AND 



RLALCBQULEAN(J) EQV 



FNOJ 



B00LEAN(«X0Q00 H &"<» W C3*45;3J>)«KEALCNQT FALSE) OR I-LJ 
BL (A)j 



DO 



BEGIN 
BUNG 
IF 



jsIbl; 

pfrand(ki»i+r*j) ai10 j.cu5]="n" theim 



WRITE(PCDBL3»INTR) ELSE 
IF Y THEN 
BEGIN 



y«*false; 

At3)«=0CTALCHI 
Af43<=QCTAL(L.n 



HALFCtO); 

HALFU))* 



TUBUCJ 

IF 

8_E£ 



•C9I43* J.C14 

BUNG THEN E 

1M 



*4i»Atinj; 

LSE 



00 703170 
00703180 
00703190 



00703200 
00703210 

00 70 3230 



00703230 
00703240 

Qn703?50 



00703260 
00703270 
007 ^2 8 



00703290 
00703300 
00703310 



00703320 

00703330 
00703340 



00703350 
00703370 
070 3380 



00703390 
00703400 
QQ7Q3410 



00703420 
00703430 
00703440 



00703450 
00703460 
00703470 



00703480 
007034^0 
QQ703500 



0070 3510 
00703520 
0Q703 53 Q 



00703540 
00703550 
QQ7Q 356Q 



00703570 

00703580 
Q070359Q 



00703600 

00703610 
00703620 



"V. 



h 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 



45 
46 
47 
48 



49 

50 



51 
52 
53 
54 



55 
56 



bumpi; bung*si*l; 

A[6]»»CCTAL(hIhALF<K»*WH)); 
A [7] >=CCTAU(tQH AL FCK) )1 — 



IF BUNG THEN ELSE 

BEGIN 

HU MPT IRUNfil» Ig Li 



00/0 36 30 

00/03640 
70 3 650 



00703660 
00703670 
nn7Q3ARn 



At 9 3 :sOCTAL(HIHALFCKJ = I+R) )i 
ACi0]J=0CTAL(LUHALFCK)); 
_ WRlT E (P[D Bu 3> 1 2»A[»ni 



END 



BLCA)i 



-£NO- 



00/03690 

00703700 
007O 3 71Q 



ENO ELSE 
BEGIN 
Yl«TR U£i 



00/03720 
00703730 
007037 



AC03»«OCTALCHIHALF(KJ)^ 

A[l]l»OCTAL<LOHALF(K))J 

END! 



00703750 
00/03/60 
00/0 3 77 



00703780 
00703790 
00703800 



MR I 



BUMP I J 
END UNTIL BUNGi 
TE(PcnBLl»12»A[»] n 



END ELSE WRITE(P, BADDY); 

END i 

PROCEDURE DlJMPARRAY(PRTLnC); VAl UE hHTl.OCi INTLGLR PRTIHCJ 



00/03810 
00703820 
00/U383Q 



00/03840 
00/03850 

.o n/u Anoo 



BEGIN X P 
INTEG 
FORMA 



rovides octal 
er loc#size; 

I 



DUMP OF AN AKRAY 



00/05000 
00/06000 

nfj 7G7n oo 



F(X2,I4,X2,2CQ#X1)}; 
DISPLAY(PRTL0C#TRUE)1 
IF PRTLDC GEO 129 AND PBTuOC J.F.H PRTMAX THEN 



00/08000 
00708500 

nn 7 fa 9ono 



IF PDATADESC(PRTLCC*LOC) THEN 
IF SIZCf *LQC*C8t 1C3 NtO I HEN 

IF LOC»g|.OC.CF GTfl Q. THEN 



00710000 
00/11000 

Q 07 i2Q00 



BEGIN 



FOR I«*0 STEP 1 UNTIL 
WRlTFCP>F»I»rr.TAL(HlH 



SI2E-1 DO 
Al FfLUC+TJ)tnCTA. (LQHAI F(l n C+ I)))> 



00713000 
00717000 
00718000 



WRITECPCDBL3); 



Jffi 



end; 

n i lMPARRAY i 



PROCEDURE DUMPCESSPOOl; 
BEGIN 
FORMAT HDR{»025-ARN«ARNnRMAL"/ w U2fi»RR sREAD HEADY"/ 



00/19000 

00/tiOOOO 
00/tflOQO 



D23-BFL 3 BUFFEH FINAL LOCATION"/ 
C21-WR =WRirt HEaDY"/"D20-6SY=6USY»/ 
p\8'NTR=nTCU NUT READY"/ 



00/21010 
00721015 
00/21090 



00721091 

00721092 

- QQ72109 3 



FORMAT WHATFILEC" 
RFAt, ItBfFRnMt BO 



NOTE:BSY 
COKE PORT 
OLEAN i.O; 



AND NTRsADAPTER/OTTU NOT READY"///); 
ION OK SEPTIC /"*A1»A6*//)J 



00721094 

00721095 

-Q Q72 11Q0 



FILE SEPTIC DISK SERIAL 
DEFINE BUMPI * I»=I+1#; 
DFFINE INT 5P*IN FQ #; 



(2>60>M'rU5E = lNPUT); 



00/21110 
00721120 

00721125 



ARRAY CC»NAMCOJ33; 
ARRAY LSTATuSt9t64li 

L A B Et i nnp.En j j 



STREAM PROCEDURE PUTLSTATU 
BEGIN SIlsSTAT; DU«LINEJ 
S TR EA M PRQCEOURE I N I T C A ) J 



SCSTAT/LINE); 
DS«=2 *0S END 



00721130 
00721135 
OO721U0 



PUTLSTATUS; 



BEGIN OI«*a; DSJs 

"PASS INTACT 

END INITJ — _ 



32 LIT 

. INTWRIT* 



00721145 
00/21146 
0072U 5 O 



READ 



0072H60 
00721170 
00721180 



BO 
51 
bJ 
S3 ' 
r>4 

hi 
IS?' 



h 



10 

11 

12 
13 
14 
15 



16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 



31 
32 



34 
35 
36 



38 
39 



42 
43* 



! 50 



JO 

3 



52 



STREAM PROCEDURE FlLC A#B»C > D,E ); VALUE B,C,D; 
BEGIN Dl»=t; l5(DSt=fiLir" "); Ul:-E/ Si l»Ai 

DS ts lw U Sj Slta uO C B* P l t sQj fiJ , 



2(DSl»2DECi AJ*Di;OISal}I-2iD3s*flLL;oi«sA;oSt8!LlT M / M ); 
0I»*Dl»i; 0SI-4HT" "* 

sim.si»6i .skip 2 sn; i start at dz'j : 



00721190 
00721200 
QQ 72 1 210 



IF SB THEN 

01 ♦=01 + 3; 

TF SR THFN 



DS:=3Lll"AbN" ELSE DI«=UI+3; SKIP SB; X02b 

ns:=a3LfT"Rh » el.sj 1 ; nn=ui + 3; skip ,sb; ^dp^i 



00721215 

00721220 
007 21 225 



007*1230 
00^21231 
QQ721235 



DI»«DI+3> 
IF SB THEN 

n n wn 1 ♦ a ? _ 



0SJs3LlT"BFL" ELSE DI»*DI+3; SkIP SB; *D23 



Skip sb;xigngre 022 
if sb then dsis3lit"wk 

DH* U I + 3 i 



00721236 
00721240 
n07^1,2fll 



ELSE OIJ3LI+3; SKIP SB; *02l 



IF SB THEN DS»*3LIT M 8Sr« ELSE DIt*DI+3; SKIP SB; XD20 

di««di+3; 

Skip srj mgnurf 



00721245 

00721250 

-0-0721251 



nl9 



IF SB THEN DSss3lIT"NTH» ELSE DI J =UI + 3# *D18 

end fll; 

PROCEDURE TIHCAiCDi VAUi£ flJ REA| M ARRAY C C C p ] i 
BEGIN INTEGER I # J ; 

STREAM PROCEDUKE FF(A»8); 
— BEGIN &JJLSAJ nitsH; ,, 



4(os«=2 dec; ds:=lit '"."); 



d i * *d 1- 1 ; 

END ff; 



0S:=53 LIT" 



FOR Its3 STEP -1 UNTIL 
BEGIN CCCU>«'JI"A HOD 60; 

Ai«A D IV 60» 



00 



FN D 



end; 

ff(cc>linec7]); 
ti m; 



BOOLEAN STREAM PROCEDURE GLUNK(A); 
BEGIN SH*A; IF SC*" " THEN TALLtt»i; 
SLUNKlsTAl LYi 



end glunk; 

PROCEDURE MHM(B#n; 
BEGIN REAL Ci 



VALUE o; REAL l,ti. 



STREAM PROCEDURE MOVECA'BJJ 

begin si»ba; DUaB; 

flCIF TOGGLE TH F N Q S>gLlT 



Fl SF 



IF SCa"*-" THEN DS:=CHH ELSE USS=CHK); 
END move; 
FOR C<=0 STFP i UNTIL H-l UU 



M0VC(lNTS»CBUMPn«LINECC3)i 
WRITE£P#B#LINEC*]); 



FNn; 



%%%%%%%%%%%%%%%%%%%%SJ HRJ 
FILL LSTATUSC*] WITH 
"WRITING ">" 



•♦POLLING "»" 
»SELECTIN"#"G 
-ACKING "i" 



"NAKING "#" 

M ACKlNG""E"j» ,, NG 

"NAKTNri'F'WNG 



»WRITE-B£"*»ADY«BUST M 
"IDLE •*>" " 
»iniF»PQl. w »"LTNfi 2. 



00721260 
00721261 



00721273 
007^1276 
72121 



-00 



Lao- 



00721290 
00721300 
QQ72131Q 



00721320 
00721330 
00731340 



00721350 
00721360 
00721370 



00721380 
00721390 
Q 72 HQ Q 



00721410 
00721420 
00721430 



00721440 
00721450 
00721460 



00721470 
00721480 
Q 07 11 49Q 



00721500 

00721510 
QQ721520 



00721530 
00721540 
00721545 



00721548 
00721550 
07 21551 



00721552 
00721553 
00721554 



00721555 
00721556 

00721557 



00721558 
00721559 
0Q721560 



1/, 



>■■; 

.| W | 

■SO 
51 

:A 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
IB 



20 

21 



25 

26 

27 

28 

29 

JO 

31 " 

32 

33 

34 

35 



36 

37" 



39 



42 

43" 



46 
47 
48 



49 
50 



55 



*L 



"WAITING " 
"WAITING-" 

, Q 



"NORMAL " 
"FIRST-TI" 
"SR FCT-A" 



"ENQ-READ" 
"BROKEN " 
"PflLL-TIM" 



"TIMED-OU" 
"EOT-HEAO" 
"REAQ-REA" 



"MESSAGE*" 


a 



"ENG 



-Oh 



0, 
0* 



ft 

"ME. 

"N S W ER 



"E-fUJT 



"T 
n 



"DY-A B N 



"ANSWER H 



» 
0, 
Olt_ 



0* 
0* 



"DISCONNE"#"CT 

INItCNAM); 

IF ■■/OPERAND f TOflLE^I) 



AND BQOLFAMl.f 13I1J) THEN 



IF PDATADESC(ARGh,FROM) AND FROM. [ 8 ! 10 3 = 128 THEN 
IF 0PERAND(CFR0MlsFR0MiCF)+i27*n ThEN LO»=TRUE 
El SF GO TQ EOJ ELSE-GQ TO EOJ Fl*E GO TQ ECU J 



WRITE(PtPAGE3); 

WR ITE<P# WHATFILEM.C6 16 JM> J 
niSPI AYCARfiHMRUE)? 



WRITE(P^HDR); 

GO EOJ/ % VOID THIS CARD 

FILL SLPTIC WITH ".ShPTIC 



TO 
»t 



*-l 



dump 
j. 



SEPTIC DISK FIuE 



WHILE 
BEGIN 
[ OOP: 



LO DO 
R£ADCSEPTIC,60,INTSP[*mfcQj]; 



u*o; 



IF (Bi*lNTSPtl3).[9i9J=0 ThEN GO TO EOji 
FLL(NAMtB.[7l23]#B.[9S43#B,LlflJ«]*e,[21ll2]#LINE); 
TIM(INT.SP[BLMP1 3.f 1RM01*CUJ 



PUTLSTATUS(LSTATUS[2xINTSPLI3 , C 1 3 » 5 3 3# L I NEC 10 3 ); 

WRITE<PM2>LINE03>; 

IF (81»B,M3M'M)*ft THEN 



BEGIN WHILE B GTR 14 00 

BEGIN NMMCHM); B^d* 
MMMC B M) , ? 



u; end; 



end; 

writecp3i 
i f us* then 



IF GLUNKCINTSPCBUMPI3) THEN ELSE GO TO LOOP* 



ENDi 
EC] J. LF_ 



LH THEN 



BEGIN CLOSE(SEPTlC)i LO»«FAlSe; 

IF 0PEBAN0(FR0M+125*I) AND I NEQ THEN 
IF OPEaANDCFROM+62*!) AND UsO OR 1*60} 



THEN 



BEGIN FR0Ml=FR0M4i; 

IF CB»*S12-CRI»F«0M.CUL) ) LSS Ci:=60) 
BEGIN MnvEtMEFR0M.aQ«/H3»INTSP#B); 



THEN 



'ri»oj i»-60-b; fhomi»from*6o; 
end else b«=qj 

MOVE tMt FROM, R0H»H1MNTSPCB)»I)J 



00721561 
00721562 
00/11563 



00721564 
00721565 

072 1566 



00721567 
00721568 
00 7 21.569 



00721570 
00721571 
Q O/2 157? 



00721573 
00721574 

00721 575 



00721576 
00721577 
0072157R 



00721579 
00721580 
0072 15 81 



00721582 
00721586 
007 2 1588 



00721590 
00721600 
007216.10. 



00721611 
00721612 
00721613 



00 7 21614 
00721615 
00721620 



00721630 
00721640 
OH 7? 1650 



0C721660 
00721670 
QQX2JL6&Q 



00721685 
00721690 
00721700 



00721710 
00721720 
00721730 



00721740 

00721750 

-00721760 



00721770 
00721780 
00721790 



00721800 
00721810 
00 7 2 1 6 2 



00721830 
00721840 
Q072185Q 



00721860 
00721870 
072 1880 



i4?' 

>i 
'43 

Shi 



.ill, ' 



h 



10 



15 

16 

I 17 

18 
19 

, 20 



22 
23 
24 



| 26 
27 
28 

I 29 



i 35 
36 



39 



*2 



•8 

«9 

I 90 



| 53 

54 



I 56 



u=o; gc to loop; 
end; end; end; 

PRUCFnuRF nUMPSEI.FfiTFnARRAVSi 



BEGIN 

IF NOTABLES 
BE G IN 



THEN ELSE 



WRITE(PCPAGEJ); 

DUMPARRAYCLINETABLE); 

niJMPARRAYC.STATArtLCJ; 



DUMPARRAYCSEQAR«AY); 

OUMPARRAY(INPUTANK); 
nilMPARRAYfTANKSi: 



dumparray(tnaog)/ 
end; 

IF SAVfRESUUTS THEN 



BEGIN 
ENDI 



oumpresultholder; 



IF ARGH NEQ THEN 
BEGIN 

nuMPcEsspniu j 



end; 

END OF DUMPING SELECTED ARNaYS; 
BOOLEAN PROCEDURE QPFRAnOC AT»hHAT 1 I 



value at; % 
integer at; % 
REA L what; X - 



BEGIN % 

INTEGER R*C; % 

IF FURlTf MfR;sAT. ROW, CtsaT. Com THEN % 



OPE.RANOl"FALSE 

ELSE X 

BEG I N % 



whatj«m[r,cj; % 
% operan0i»true; * 
FNn; x 



end operand; % 

BOOLEAN PROCEDURE DLSCRIPTUK(A1,WHA7>i<.InD); 

VAIUF AT? , 

INTEGER AT; 
REAL WHAT>KINO; 
BFfllN 



00/21890 
00721900 

oo/2?ooo. 



00723000 
00/23100 
00/ 23 20 



00/24000 
00/25000 
00736000 



00/2/000 
00/28000 
QQ/29000 



00730000 
00/30100 

oo 73.1000 



00/32000 
00732100 
00/3/000 



00/37100 
007-/200 
007-7300 



00/37400 
00/38000 
00739000 



007*40000 
00741000 
00/4 200Q 



00/43000 
00/44000 



00/^6000 
00/4/000 
00/4 8 00 



00/49000 
00/30000 
on7bmon 



00752000 
00753000 

07 5 40 00 



INTEGER R»C; 

IF CKINDI«0CTALCCHHS(MlRlsArfHOn#C I*AT.CUL1,0*1 )))_" 4 0" 

BEGIN 



00/55000 
00756000 
00757OOQ 



THEN 



end; 



descriptor**true; 
what»»chrs(M[r,c]»i#7); 



00758000 
00759000 
00760000 



end descriptor; 

BOOLEAN PROCEDURE PUATADESC(AT»whaT )} 

value at; 



00/61000 
00/62000 
00763000 



integer atj 
real what; 

BEGI N 



00764000 
00765000 

QQ/66Q0Q 



integer kind; 

if descriptqrcat>what>kind) 

KIND» W 50" THEN 



0076/000 
00/68000 
00/69000 



AND 



poataoesc»«true; 



007/0000 
00/71000 
00/72000 



end; 



BOOLEAN PROCEDURE CONTRULDESC (AT* WHAT ) J 



00/73000 
00774000 
00/75000 



9 
10 
11 
12 



13 

14 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

« 

43 " 



45 
46 
47 
«8 
49 
50 
51 



52 
53 
54 

55 



56 
&7 



value at; 
integer at; 

RFAL HHAT? 



00776000 
00/77000 
00/78000 



BEGIN 

INTEGER TYP; 
rONTROLOESC t «nF SCR TPTHR CAT* WHAT HYP) 



AN D 



007/9000 
00780000 
00781000 



fnu coNTRninrsc 



TYP, [401 13*1 
TYP, [45* i3*o; 



AND 



boolean procedure momok (mompkt* momloc )i 

value momprt; integer mqmpkt*mqmloc; 
- MfiMfiK LgPJLU-&H£-SX-t unMPRT.MUMt fit) Aun 



00782000 
007B3000 
0Q7H4000 



INTEGER MlNLNK*MlNBAU*MAXBAD>MAXLNr<; * 
BOOLEAN NEEDCHECKAVAlLNKS;aiFALSt IF OPMT 
ARRAY COMMTCOU93J BOOLEAN COMNTj 



00785000 

00786000 

.CMOHI,nC»«MnMi.QC«CF)fiTR 0/ QQ787000 



DUMP 



PROCEDURE 

BEGIN 
SGftQfiH 



0076800C 
00789000 
QQ79QQQQ 



MCPENTRIES; 



TRUE: 



display(bed*fal5e); 
displaycprt*false); 
oi s pl a yc j ar*f als ej* 



00791000 
00792000 
O079P1OQ 



DISPLAYCFENCE »FAL5t)i 
0ISPLAY(L0GLINE#FALSE); 
0ISP L AY(L0GLINE2<FA l SE) i 



00793000 
00794000 

-ao /v s ooo 



00796000 
00797000 

1797: 



D I SPLAYC SPACES TACK* FALSE); 
OlSPLAYCSTACKftf FALSE)/ 
DlSPLAYf I.STAHKtFALSb )? 



-O0-; 



440- 



00798000 

00799000 

.00800000 



D I SPLAY(LCG ARRAY* FALSE); 
DISPLAY(SPACER*FALSE); 
ni.SPI AYCRlfiUNSfFAL.SE)* 



DISPLAY(P1MIX*FALSE); 
DISPLAY(P2MIX*FALSE); 
■ SG L THGIbF A LS E ; — 



00801000 
00802000 
00802100 



00803000 
00804000 
00804999 



end; 
procedure getprtentries; 

BEGIN 



00805000 
00806000 
00807000 



REAL ADR»«C*PRTRUW*L* 

REAL ADRR> 

INTEGER T»K; 



ARRAY MIXC0I403; 

FORMAT PRT0ljTCXlO* ,, PRT LOCATIONS*-"/ 
X?Q*"MIX"*X2Q*"PRT , V)* 



0C8C8000 
00809000 
OOtUQOQO 



F1C X20* A2*X20* Ab)* 
FORMAT BADPRTC"********BAO 

LABEL XI T/ 



ooexiooo 

00812000 

Q Q813Q QQ 



PRT DESCRIPTOR*******"); 



LABEL NEXT; 
IF NOT(PDATAOESC(PRT*L) AND L.CF ftEQ 
: AND L.C8UQ3 LSS 41) THEN BEGIN 



00614000 

00815000 

JO Q8160 0Q 



AND L. 18*103 GTR 



00817000 
00818000 
0619000 



MIXMAX:=DEFINE0MIXMAXU 
WRITE (P*BADPRT); GO X1T 
APR*- L. [ 33* 1 53/ 



FOR LINK CK 



end. 



WC*« L.C8U03; 

ki»»i; 

MlXMAX»«WC"i; 



00820000 

00821000 
00822000 



FOR I*- 1 STEP 1 ONTIL (WC"l) DQ 
IF PDATADESC(ACR+I*PRTROW) THEN 

TF PRTRriUi =r) Th^lM 



00823000 
00824000 
082 5000 



dEGlN 

else prtrow*so; 



00826000 
00827000 
00828000 



go to next; 

Kt*K + ],; 

MIxTKlI* i; x save mix number 



00829000 
00830000 
00831000 



I -.2 



h 



2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 
20 



21 
22 
23 
24 
25 
26 
27 
28 
29 



30 

31 



32 
33 



34 
35 



36 

37* 



40 



42 
»3 
1 44 
45 
46 
»7 
48 
49 



52 
I 53 



55 

56 



MIXCK»»K+1]Jb pRTKGW; 

NEXT: 

FNQj % O F F I N DI NG PUTS & V AL ID M 1 X E. S i 



WRITE(P*PRTOUT); 
WRITE(P*F1*FCR i»sO 
XIT I 



00832000 
006J3000 
00834Q00 



STEP 1 UNTIL K pO OCT AL(M JX [ 1 3 , [ 33 I 15 3 ) )J 



END OF GETPRTEMKlESi 
INTEGER STREAM PROCEDURE MCPCNT(A)i 

begin s jifUQC a; s i < g si +i; 



value a; 



-gasx 



7CIF TOGGLE THEN T ALLY I *TaLLY+1 ElSE IF SC NEQ "O m THEN 

TALLY l»TAUY + t;sil«SI*l)J MCPCNT J»TALLYi 
OF mcpcnt;* . - 



INTEGER PRTCODE; % SET TO 0*1 OR 2 riY CHECKPRTF 1LE 

PROCEDURE DATIMe; 

BEGIN I NT E G E R I ; B OOLE A N -B4 



STREAM PROCEDURE PRTF ILEMESS(P*L* C H 
BEGIN LABEL MA Y8E*BAD,F I X* XI T t 

susp? nit»Lf 05-mu was* 



VALUE Qt 



CII»CI+CJ 

go xit; % 
go maybe; 



4- 



go bad; % 2 

MAYBEtDS»*9LlT"CAPPEARS M ; Gq FIX; 
-BJLQJ nsi8i9LTT'wnrFTNTTFLY -tot: Gn ftv: 



-mo- 



FXX *DS»slOLlT"lNCORRtCT)"; 
XIT »DSJ*32LIT" "; 
PRTFILEM ESS ; 



IF NOT COMMON THEN BEGIN 

IF NOT 0PERAND(3*MCPVERSI0NJ THEN WR ITE(P* BADCELL3) '* 
IF Fl 6flIT(MCnATF.RftW.DATF.CQl 11 TNFM 



WRITE(P#BAC0ATE) ELSE 

BEGIN 
DATX ;g M[DATE.R0H*UATE.C0L3i 



IF 



DATES (DATX* DATETAKEN* DAYS* YEARS}* 
ZHQi X OF DATE 
Fl6BlT(M[Xr.LQCK.ROW*XCL0CK.COL3) THEN 



WRITE CP.BADXCLCCK) ELSE 
BEGIN 

xcincx »s MLxCLfiCKtRQwf xci ncx.cfjui; 



T IMES (X CLOCK* TIMET Art EN* MINUTES#SLCONOS) J 
END* % OF XCLOCK 
PRTFTLEMESSfPRTNAMF*!. I\E,PRTCQDE) ; 



WRITECP*8*LINE[*3)J 
WRITECP#FANAL*VERS10N); 
WRlTEtP»FTAPnSK*FTLF.TYPE*T0HKin.[6<6]»TnMFIn* 



TDFID.C6I63*TDFID); 
WRlTEt P*FCOMVAL» REAL ( COM ))i 
HRIT£(P*X1MARKXI*IF 8 t«(I tsMCPCNTC MCP VERS1 ON ) GTR 



_6J_ 



00835000 
00836000 
0QB37Q00 



00838000 
00839000 
QQ 84 Q00Q 



00841000 
0Q842000 
00 8 4 3 000 



00843100 
00844000 

ooaasooo 



00845100 
00845105 
00645 UP 



00845115 
00845120 
00845125 



00845130 
00845135 
0Q H45 1 4 



00845145 
00845150 
00845155 



00846000 
00847000 
00848000 



00849000 
00850000 
00851000 



00852000 
00853000 
00654000 



00855000 
00856000 
QQ857QQ0 



00858000 
00859000 
QQ 8 5 9 Q5Q 



00859100 

00859200 
00859500 



00859510 
00859520 
00860000 



end; 

IF 
IF 



then mcpversiqn.C6»6J else " "* if b then 6 else if i»o 00801000 
then 1 else i * mcpversi 0hi*da tetaken*t)ays* years* 00862000 

TIMET AKEN* MINUTES* SECONDS); 00863000 



SHAREOISK THEN 
OPERAND(SYSNQ*I) 



AND I GSQ AND I LS« 3 THEN 



WRITECP*SYSID»I+17); 
DATES(T I ME(0)*DATEANALY^ED* DAYS* YEARS); 

flMES(TIME(i )*TIMEANAlYZED»M1nUTES*SECQnOS)j 



00864000 
00864100 
00864U O 



00864120 
00865000 
OO606OOO 



WRITEC P» FMXX* D ATE AN ALY2E0' DAYS* YEARS* TIME AN ALY2ED*MINUTES» SECONDS); 00867000 

IF COMMON THEN WRITE(P)J 00860000 

IF MBT CQ MM flN TH E N B E G I N 00869000 



,7| 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



14 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



29 

30 



31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 
42 
43 



45 
46 
47 
48 
49 
50 
51 



52 
53 

54 
55 



56 
B7 



IF FLGBITCMCCLCCK.K 

WRITE(P»BADCLOCK) 

&ZZ1A 



UtOCLGCK.CJU ) 
ELSE 



THEN 



ooa/oooo 

00871000 
087 2 00 



CLOCX »« M 
IF XCLOCX LSS 
TTMES(XCLCCXT 



C C LOCK. RGw # CLOCK, COL 3/ 

CLOCX THEN XCLOCX »*XCL0CX+5 184000; 

i.nry.»TiMFLASTnL.MTnniTFS<Sf rnNnsn 



00873000 
00874000 

qo87_qoo 



WRITECP'FM 
TIMES(CLQC 
WRITECPtPB 



X2'TlMELAi>THL*MINuTES»bECUND5); 
X»SlNcSLAt>THL#MiN L TtS#SECONDS); 
L 3 » FMx 3 j S I NC SL A SI HL * M I M.lTE S » SECOND S H 



008/6000 
00877000 
008/8000 



fno;* 



END i 

end; 

flF DATTMF 



*QF CLOCK 



PROCEDURE PKInTARRAYRCWCPRTlOC*INX)> VAlUE PRTLQC,InX; 

INTEGER PRTLQC^INX/ 
BEGI N 



INTEGER LOCSIZ 
BOOLEAN T06»C0M 
LABEL A G AIN ; 



e; 
save'oblsave, 



STREAM PROCEDUR 
BEGIN LOCAL A#B 
SnT LI N E U(Slis .S lt e )i 



E FIXLINECHNE»INX); VALUE INX; 
Slls.S, 



32CIF SC*" 
AlsSi; OH 
SIt-LQC IN 



" THEN 
*a; DS: 
x; psi_ 



JUMP OUT ELSE SI»»SI+l)i 
»LIT"["J Al-Dl* 

4 oec; Btsin; 



EMO 



oi»=a; ds: 

DS:s3LlT", 

fixltne; 



=3 fill; Dllsb; 
*3"; 



IF TQG* s BQOLEAN 
OISPLAYCPRTLOC* 
|NX t»A B S UNX); 



(INX.C1U1) THEN 
TRUE); 



comsave5=com; 

comjsfalse; 

OBtSAVFispnuRLrspAnu 



D0UBLESPACEJ3TRUE; 
IF PRTLOC GEO 129 AND 
AGAlNt 



PRTLOC LEW PRTMAX THEN 



IF PDATADESCCPR 
IF (3IZE:=L0C.[ 
IF TOG THEN PRI 



TLCC^LQC) THEN 
8U0J) NEQ THEin 
NT(LUC!SLOC.CF^MlNcMAXCUrt»LOC*aIZE)) ELSE 



BEGIN 



DISPLAYITC 

FIXL I N FCLI 



PRTLOC* TRUE»J»STLOC:«LUC.CF + INX) * 

N Ef H< X)/ 



HRITE(PtDBL3#t5#LINEt*J)i 

togj=true; 

GO AGAIN? 



END 
COM 

nou 



»«comsave; 

BLE3PACFi»DHLS„VE> 



END PRI 
DEFINE 



NTARRAYROWJ 

PRINTARRAYCP 

PRINT A RR A YRB 



RINTARR 

WCPRlNT 



AY1 )* 
ARRAY1*-! )*} 



OEFINE PA*PR!NTaRRAY#>PARQWsPR1NTaRHAYRQW#; 

boolean badcomment; 

FORMAT ROMNTPARf"»««PiRlTY ______ QCCURRFO IN rQMMFNjS BLQr.K tt .*)J 



0U879QO0 
00880000 
00881000 



00881100 
00881105 

Q oeo ino 



00881X15 
00881120 

nOBflU?5 



00831130 
0088113b 
Q Q8U U 4 



00881145 
00881150 
00861155 



00881160 
00881165 

0088 11 70 



00881175 
00881180 
00881185 



00881190 
0088U95 
0nflHI,197 



00881200 
00881205 
0Q8812 1 Q 



00881215 
00881220 
00881225 



00881230 
00881235 
00881240 



00881245 
00681250 
00881255 



00881260 
00881265 
00881267 



008dl27Q 
00881275 
008 61 2 8 



00881285 

00882000 
00863000 



PROCEDURE LOAD; 
BEGIN 
LABEL EOT; 



00884000 
00885000 
00886005 



LABEL EF*PR 
LABEL FLAG* 
FORMAT RADF 



♦IGPARJ 
PAR*BAD 
nFC" — 



TM^IGNOREPARJ* 

TMVALTD EOF AFTFR Hi flCK 






00886010 
00887000 
00886000 



•I 

bl. 



10 



12 
13 



15 
16 
17 



19 

20 



22 



24 
25 



27 
28 



31 

32 

33 

34 

35 

36 

37 " 

38 



41 
42 



45 



50 



52 



55 

56 



*1 



PBTFILECPRT FILE USED IS % A 1, A6, "/% Al , A6, X3 ) , 
PARERR (" — -IRRECOVtRrtBLE PaRUY IN BLOCK # ">12), 
FLAfiFRRf." — -FLAK. BIT IN WtlHO ZKRH UF BLOCK # " t I 'J ) } 



ARRAY A[0I5323J 

STREAM PROCEDURE MOVER(S#0)> 

B EG I N 



00868100 
008d9000 

onevoooo 



END 



SlSs-S; ui 
16C0Sl=32 
MOVER,; 



=u; 

rtUS); 



00891000 
00892000 
00 8 93000 



STREAM PROCEOlRfc GETCOMMQNC CUMMT> N ) ; 
BEGIN LOCAL X,YJ LABEL X IT * Ml T, GETNUM; 

otisnj ostsflLir'+oonnnor'i sii»nnMMTJ - 



oo894ooo 

00895000 
0Q89600Q 



7C20CIF SC = M C" THEN BEGIN Sl*.«Sl + i; 

if scs^c then begin si;=si+i; 

IF SC»"K W THEN .JUMP dUT 2 TO hIT 



00896010 
00896020 
00896010 



FL.SK MlsSI + 1 



END ELSE SHxSl + l END tLSE 5H»SI*U>; 
GO it it; 

H1TU5CIF SCS"«" THFN JUMP UUT TO GFTnUM ELS£ SllaSl + l)l GQ 



00896040 
00896050 
08 9 6 6 



GETNUMJSII=5I+li 

diuldc x; 

IOC IF SC = " " THEN 



00896070 

00896080 
XIT;0089609Q 



SH = SI + 1 tLSE JUMP OUT); 



00896100 
00896110 
00896120 



8CIF SC GEQ "0" THEN IF Sc t£0 "9* THEN 00896130 

BEGIN TALLY»«TALLY+i; Ds'*ChH END ELSE JUMP OUT ELSE JUMP OuT>* 00896140 
Y<»TAI LV/ ona96jsn 



siuloc x; 

DI:=n; 
ns;gY oct; 



xit * eno getccmmon; 
integer i; 

ALPHA N1, »N2; 



00896160 
00896170 
008*6180 



STREAM PROCEDURE KLUDGE.CXNAM5 ) J 
BEGIN DII=XNAMS; 1 J CDS »«8LI T" ") tlMi; 
rnMNT«-RAnrnMMFNT«.FAi sf: 



00896190 
00697000 
00897010 



IF RELOAD THEN 
FOR H»0 STEP 1 
IF M1M TT THFN 



00897100 
0U897200 
00 896 000 



UNTIL 63 DO UNLOCK (MC At J .ROW* * ] ); 



READ REVERSE (Ml) UMP*20*CUMMTL*3 >[BaDTM IqHAH]; 
IF FALSE THEN IGPAR : BAUCDMMENT : =TrUE> 
FOR II »f) STEP 1 U NTI L. ft^ DO 



00898HO 

00898120 

00898130 



BEGIN 

IF MULTI THEN READ REvERSEC MOuMP/ 5 33* AC * ] ) t BAOTM »PAR 3 
— R£APCMQUMFfS3 3>AC»l ) LBJUU-M t PARI j% ; : 



00898140 
00898150 
O0H99O0Q 



else 



IF FLGBITCA) THEN GO FLAG ELSE 

IF MODONCACO] .L33S3J J»snU| BUOLf, AN C ALO 3 , [ 1 « 1 3 ) THEN 

BFGIN ' 



00900000 
00900100 
00901000 



009Q2Q0O 
00903000 
00.904000 



FND 



MOVER(Atll#MCA[03,RUW,03); 

LOCK (MCA[03.ROW**3); 

FLSF JF Ar0].fi»53«0 THFN Tt*T+7i 



comment one block is written per absent mud. 
end; 

TnMFTDt«MQhMP,MFlOJ „ _^___ 



00906000 
00906500 
00907000 



tdfidj*mdump»fid; 

filetype«»if md0mp,tvp-e«2 then "tap£» el$e "disk"; 

if not multi then . 



00907100 
00908000 
00908100 



IF FILETYPE»"TAPE" AND TDMFIU Nt.O THEN 
IF TDFID.C30«18J»1 THEN ELSt MULTIisTRUEJ 
IF IjtFPFATTMfi THFN) IF T f)F 1 n . L 3fl : 1 B 1 s 1 ThpN 



00908UO 
00908120 
0090fll3Q 



ELSE CLOSECMDUMP**) ELSE 

IF CAUXTYPEI«AC03,C3»53)«Q THEN 

IF FII FTYPFs«TAPF" THFN 



CinSFCMDUMP) 



00908140 
00908150 
0J9Q616Q 



00908170 
00908180 
QQ9Q819Q 



V! 



>T 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 



15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 



27 
28 
29 
30 



31 
32 
33 
34 
35 
36 
37 " 



38 
39 



40 
41 



42 

43* 

44 

45 

46 

47 

48 



49 
SO 



51 
52 
53 

54 



55 
56 



READCMDUMP,2C,CUMMT[*])tEGT»lGNUKEPAR] ELSE X DISK 
M0VECAC513J»CGMMT,2e)J 
TF FAI.SF THEN rfiNC]REP ARt BADCl iMM F NT»ThU EJ — 



COMNT t* TRUE/ 
GETC0MM0N(C0MMT»N1 W 
IF Nl GEfl THEN COM t »BUOLE AM C M ) ; 



N . '«QJ 



IF MULTI THEN NUMO*=TRUE ELaE 

REAOCMOUMPCN01)CEOT*PAR]i 

IF FALSE THEN 



BEGIN 

EOT* CLOSE(MDL'MP); 

NQMOtaTRUE; 



end; 

IF COMMON 
-£USE 



QR RELOAD THEN 



BEGIN 
IF PRT32 THEN 
SftACEfPlSK»l 



RF.AOARRAY(30#S£GZER0t*J»O) ELSE 

xi : 



READARRAYCNA 

READARRAYCNA 

READ.ARRAYCINA 



ME4»IZ£/NAMEC*]#PRT8ASE); 
MSt»IZE#NAMSL*]»U)J 
K"E5IZE»INAMFC* UJXXi 



READ ARRAY ( IN AMS>SlZE» INAMS [ * J » ) ; 
CLOSE(OISK); 
N11»QISK,MFID? N2t»PlSK«FIf)i 



WRITE(PRTNAKEt*3»PRTFIuE»Nlt C6J6],M,N2,C6l6 3,N2)i 

end; 

IF R ELO AC ThFN FL .&E 



BEGIN 
MAXM0i):s7; % 
WHILE NOT MODtlNCMAXMODJ 00 MAyMOD ; =MAXMGU-1 J 



MAX 
IF COMM 
BEGIN 



CQR»*4096x 
UN THEN EL 



(MAXMOD + D-i; * 
SE 



PRTMAXt-PRTBASE+NAMESlZE-li 

INTMAXI*INAMESUE-i; 

FOR llMRTBASF STFP 1 UNTIL PRTMAX UU NSNAMECIl 



NSNAMEtn+PRTBASE; 

FOR U=0 STEP 1 UNTIL INTMAX 00 ISnaMEC i J »* 

ISNAMET MtPRTPASFl 



FIXDEFINES; 

SETUPXNAMEAHO 
IF DAaTf»0 TH 



xnams; 

FN % ASSUME PRT REGINS AT P160 



BEGIN 



DAT£t=ll 
C L OC K i s l 



9i 



XCL0CKI«l2i; 
END ELSE 
BEGIN I ASSUKF PRT BEGINS AT A173 



DATEJ»DA 
CLOCKIsC 
XCLQCKts 



ate; 

louck; 
xc lq q ck ; 



i; 



KLUDGE ( XNAMS)* 



END, 

IF HYSTACKADR LSS THEN % LETS USE IT... 



IF CONTROLDES 

IF I.CFuO AND 

MYSTACKADR:r 



CC7»I) THEN % CHECK FOR MSC* IN CELL 7 

I'sI.ff geq o then * assume valid 

14-30; % MAY NEED MORE THAN 3C 



eno; 
if fal 



end; 

SF THEN 



BEGIN- 



00909000 
00*09100 

onvtoono 



00911000 
009U100 
0091H10 



0091U40 
00911150 
009 144 60 



0091U70 
00912000 
00912050 



00912100 
00913000 
009 14 00 



00915000 
00917000 
00918000 



00*19000 
00920000 
* *1 00 



00922000 
00923000 

00923100 



009*3110 

00924000 

-Q Q9 <; 41 Q0 



00924200 
00925000 
00926000 



00927000 
009*8000 
00**9000 



00930000 
00931000 
00932000 



00933000 
00934000 
00935000 



00936000 
00937000 
0Q 9 37Q Q5 



00937010 
00*37015 
00937020 



00937025 

00937030 

-O Q9 37035 



00937040 
00937045 
QQ9 370 50 



00937055 
00937060 
00937100 



00937110 
00937120 
0Q9 37U Q 



00938000 
00938100 
00939000 



50 

si! 

52J 

:>3 



D 



>r 



7 
8 
9 
10 
11 
12 



17 



19 
1 20 



22 
i 23 

24 

25 
I 26 

27 



29 

30 



33 



34 
35 



♦3 



«6 



48 



| 53 
34 
55 

\ 56 



«t 



badtm:writecspu>baueqf# n; go 

PAR» WRITE(SPC#PARERR»I + 1 *'* 

■P LA G i, — HRITE(SPC»Fl AGERRjI + 1.). 



LUPROG; 

liu E0PRCJ6J 
QQ fctlPRGC. 



END LOAD) 
PROCEDURE CHECKPRTFILE** 
It ftlfiNALS USFR TF HIS TSS/PRT- 



XAXL 



00940000 
00941000 

00943000 



FTLf «HTfiHT»»F THE toHflMfl OMf 



009^3000 
00944000 

0945 000 



BEGIN 

real lootypmj 
peal mytypf; 



LABEL BAD#MAYRE; 

DEFINE CHECKFoRLABELOESCRlPTORslF LUC LSS ThElV GO 
IF DESCRlPTHRfl nCjWTVP) AND TYP*MYTYPF THEN 



00946000 
00^47000 
00948000 



BAD ELSE 

ELSE 6f-l MAYRFXt; 



DEFINE CHECKFORPkOGRAMntSCNIPTQRsChECKFUfiLAUELDEbCHIPTQK*; 

FORMAT BADPRT("---YaLR TSS/PRT FILE IS ImHONG... ." )' 

I NtHMPATC — TS S /PRT F T L. F N O T CQMPAT l R L F WITH M f PS PRT IN MEM O RY . 



00949000 
00950000 
00951000 



DEFINE ERRMESS<ERRMESSl)s6EGlN wHITfc. ( SPO^ERRMESS 1 ) i 

WBITE(P[PAGE3»ERRMESS1) end*;* 
hvTypf»« m 7^: ; _i _____:_ 

IF (I.0C«=N0THINGT000) NLQ THEN 

cneckforlabeldescriptcr; 

tf cloc»t.stacknverflcw) neq then 



009b2o00 

00953000 

JtXi 00954000 



CHECKFORLABELDESCRIPTGR' 

IF (LOC»*RETURN) NEQ C THEN 

CHLCKFORLARFLPESHRIPTOR* 



MYTYPEl* w 75"J 

IF (LOC5=OTHERClOSe)sO then lccj=-i> 

C H t CKF O RPR O r i R A MOFSCRIPT O R; 



IF FALSE THEN 
IF FALSE THEN 
END OF CHECKP 



MAYBEIBEGIN ERRmESS(InCOmPAT); PRTCQ0£«al END) 

bad*begin errmesscbadpht); prtcode»82 end; 
rtfile; — : — : 



procedure dumpmcpsprt; 

BEGIN 

format HnRfxas>."T s u r. p s p w ?»«/ 



X/J2» M " - - - • - - * -"///> 
2( "PRT", X5, "CON TENT S">XI6* "NAME*', X28)/)» 
nASHrsrx4 ?,of"- «)), 



FCX8»"MEMQRY MODS! ",8Il)> 
PRTITEM(2(Ab»" = "*Q*X1*0*Xj9)); 
INTEfiFR LUC»N? 



LABEL EXIT; 

IF dumpcesspoolonly 

IF NOT COMMON THEN 



THEN oontuumRrt* s true; 



BEGIN 

chlckprtfile; 
if not rqntoumprt 



printmcpoptions; 
if oontdumprt then 

BEGIN 



THEK BEtilN VLAUMLl WRITECPIDBL J? END/ 



ELSE 



V«RITE(PtOBL]»HDH); 
FOR LOC«*ACTLALPRTBASF. 
BEGIN 



STEP 1 UNflL PRTBASE OU 



WRITE(LlNEt*],pRTlTEM*OCTAL<LOC)#UCTAL(HIHALF(LOC))# 

octal <lohalf( loo )# octal cn*axsnameclocn# 
qctal(Hihalf(n))H3Ctal(lqhalfcn))); 



M.QVECXNAMSCXNAMEtLOC3tCF]#LlNEC«]»XNAMECuOC3.FF)j 
MOVE(XNAMS[XNAMEtN].CF]#LlNEU23#XNAMECN].FF); 
WRITE(P»15»LINEC»3); 



if oqntdumpbt 
end; 
write(p^dashes); 



THEN GO EXIT; 



00955000 
00956000 
00957000 



00958000 
00959000 
OOVftOOOQ 



00961000 
00962000 
00963000 



00964000 
00965000 
009 660 00 



00967000 

00968000 
00 * 6 9000 



oowoooo 

00971000 
009 72000 



00973000 
00974000 
Q Q975 QQQ 



00976000 
0C977000 
00978Q0Q 



00978050 
00978100 
00»790 QQ 



00980000 
00901000 
00*62000 



00983000 
00984000 
QQ98500Q 



00986000 
00987000 
QQ986Q0Q 



00989000 

00990000 
0Q991Q0Q 



00992000 
00993000 
0Q99400Q 



00994100 
00995000 
00996000 



1H 

mi 

Mi 
51 



FOR LOC: = PRTBASE + l STEP 1 UNUl P*TMAX DC 00^97000 

BEGIN 00998000 

\. ! «Rn E (L l NE[* 3 *PRT I T E H ^ UCTALC L OC)»f J CT AL Ch I H AL F< tO C} ^ QQ999QQQ 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



24 



25 
26 



34 
35 
36 
37 



45 
46 
47 
48 



B6 



OCTAL(LOHAlFCL0C))#0CTAl<M*NSNAM£LlQCJ ), 01 000000 

OCTAUHlHAlFCN)),aCTAl_UQHA|.F<N)))J 01 00 1000 

MQVrCNAMS[NAHF r LQC3.CFl»Ll N EL»3* N AHEtLOC3 tFF )i 01002000 



M0VECNAMS[NAMECNJ.CF]#LINE[12J,NAMECNJ.FF); 01 00 3 000 
WRITECP*l5,LINtl*3 )* 01004000 
IF DONTDUMPRT THEN fiO EXITJ 01004100. 

end; oioosooo 

EXIT* 01005100 

NEXTPAC E ; 01006000 

END; 01007000 

END* 01008000 

HK1TF(P[DBL3»F»FQR Nt_=Q_STEP 1 UNTIL I tiU Q1 Q090 Q0 

CIF MODONCN] THEN N ELSE l03)i OlOlOOOO 

oatime; oiouooo 

IF fiUMPCFSSPnOLONLY THEN ELSE 01011 140- 

IF NOT COMMON THEN 01012000 

BEGIN 01013000 

MCPENTR IE 5J O-UUAOOO- 

GETPRTEI^TRIES; NEXTPAGEi 01015000 

end; 010 16000 
end of dump of mcf s pkt> . . 01q17q0q 

ARRAY MEMLOCCOJMIXf'AXJf LINKLUCLOJMiXMAXj; OlUldOOO 

23 COMMENT MEMlCCCI] HOLDS THL START CELL AND LAST 01019000 

CE LL A DDR E SSE S FOR MEM O RY AH£A I .... . OlOgOOOO 



MEMLOCtI3,C3»lJ — 0,TH LINK IN AREA I IS BAD, 01021000 

,[5:13 — BAD LI'MKCS) IN AR£A. LAST GOOD 01022000 

"| _ , ^— I INK IS IN LlNKLQCf IX, , 01023000 

.[4113 -- LAST LINK IN AREA I IS BAD. 01024000 

•[2113 -- STATUS Dp AVAILABLE LINKS. 01025000 

_ .44-3X5-3 mm mix IN DE X F U R ARE A I 10^6000 



,[181153 — ADDRESS UF LAST CELL OF AREA. 01027000 

.[33115] — AB0RESS Of 0»TH LINK IN AREA, 01028000 

"I LlNKLOCm HOLQS ADDRESSES UF LAST GOOD LINKS 01029000 

IN FORWARD SEARCH In H NKLI3C C I J . t 3 3 : 15 3 * 01030000 

IN BACK SEARCH IN C I NKLQC [ I ] . t 1 8 : 1 5 3 ; 01031000 

R EAL MSTARTfMENp,VFf NCE. ,PflTQ; 01032000 



COMMENT ... MSTART IS THE ADDRESS OF THE 01033000 

"I 0»TH M£M LINK (ALSO THE FIRST CELL) OF AN AREA. 01034000 

39 MENO IS THE ADDRESS OF THE LAST CELL OF AN AREA* 01035000 

40 | THESE VALUES ARE HELD IN MlMlOC. ,..; 01036000 

BOOLEAN PROCEDURE CHECKMEMQRYLINkS/ 01037000 

RFGTN it Q1O 3 8 Q00 

COMMENT .... THIS PROCEDURE HAS BEEN CHANGED TO CHECK 01039000 

MEM LINKS IN ALL AREAS IN CORE, FIRST WE ACCESS 01040000 

: SO TO DETERMlNF WHICH JOBS ARE ACTUALLY IH CORE 01041000 



WE THEN COMPUTE THE AUDREYS CF THE FIHJjT 01042000 

CELL ANB THE LAST CELL IN A MEMORY AREA AND 01043000 

STORE THESF VA LUE S IN ME,Ml i ) C. THE M E MLQC 0i04400p 



T- ENTRIES ARE THEN ARRANGED IN ASCENDING 01045000 

SEQUENCE. WE THEN PERFORM THE NORMAL/ MEMORY 01046000 
. LINK CHFCKTNQ-PROCFUUBE MAKING ENTRIES IN , 01047000 



55 BOOLEAN mstartok; real VMSTaRT; * 01051000 



...I 48 

bn 
f.1 



MEML0C AND LlNKLOC TO REFLECT VARIOUS PROBLEMS 01048000 »| 

IN THE LINKS FOR USE IN PRINTING UUT CORE. ; 01049000 
ROGLEAN-ZERQKj HEAL VO/ * 01050000 -i 



BOOLEAN NOWRAPAHOUND; 01051100 

BOOLEAN NEWTYPF.,? OlQ t .120Q , Ji') 



2 
3 



13 



16 
17 

ts 

19 
20 



21 



I 23 
24 
25 

I 26 
27 
28 

t M 
30 
31 



I 32 
33 



34 
I 35 
36 
37* 



40 
42 



48 
49 



52 
1 53 



55 
I 56 



REAL LINK,VLINK>PREVLI.MK> 
INTEGER AVAILMAVAILT»A\/AILM; 
DEFINE TYHMAXb22<* fc 



BOOLEAN PROCEDURE 
VALUE HORC; % 
REAL WBRO; * _ 



linkdkcwuru); % 



01052000 
01053000 

numooo 



LINK0KlaWORD.C3«6]STYPMAX 
WORD, [9:6] LEO MIXMAX AiMU 
WnR0.[lS»21aQj 



AinU * 



01055000 
01056000 
01057000 



BOOLEAN PROCEDURE FENCEQKCF); 
VALUE F; REAL F '> 

FENCEnK?BF*r^flnn]sO and f/o; 



01058000 

0105*000 

OlOfoOOOO 



FORMAT RANGECX8*"LINKS FROM ",A5*" Id "lAjj," AR£. UK")* 

FC0HECA5*" s "*2CU*xn,X/*"CuRE"*X8*"F ACTOR * "*F*»,2, 
"> MAX CORF s " *A 5*"(" . IS * ")" * "*^! ' ^ "» A S * w ("» 1 5 * " 3 " ) * - 



01061000 
01062000 
01063000 



0NEQKCX8*"LINK AT «*A5,« IS OK")* 
TELLM(X5f"EN0 OF MEMQRy LINK CHECK FOR 

: 12* 3A6 )* : ; 



01O6A000 

0106A100 
01U 6 04-K)- 



MIX 



8ADCX8*A6»" LINK AT *'*A5*" IS NOT OK")* 
AVLBAD(Xb*"AVAILABLE STORAGE TuTAL.5 DO NUT 
AVI CXP."AVAll AHLF LINKS AKF Or,, TOTALING". 



0106A500 
Q1Q64600 
0106A700 



ARRAY 



U*"COECI*AL) AREAS OF 
w ) WORDS UP TO "*A5» 

a r q \ .1 ) t. 



M *A5*"("»I5# 

"t"*I5*") VIDROS EACH"); 



01005000 
CROSS CHECK")*01066000 
01067000. 



REAL SQPTR*DUMY*AVA1L* 
LEFTLIT*CNTR*SQPTR1> 
I NT EG ER N * T*f^l* ,l * J* 



01068000 
01069000 



DEFINE S » SQPTRi.RQW*SVPTHl.COL#; 
PROCEDURE PRINTIT(ADDR*NAME)* 
VAt HE ADnRi REAI AOnR^MAME; __ 



01071000 
01072000 
010/3 Q Q0 



BEGIN 
INTEGER DUMY*DUyl* 
FORMAT ITFMHA5>" r. 



01076000 
01077000 



*2cO*XU>X'j)> 



WRITE(LINEC*]*ITEM1,0CTALCADDH), 

OCTALfDUMYt«HlHALF(AODR))*0cTAL(UUMlssL0HALFCADDR))); 
MnVE(NAMF.LIMf:rm*1 )i 



01079000 
OlOfaOOOO 
Q lO e iQOQ 



WRITF.(P[DBLJ*7*LIHE[*-1)J 
END PRIN7IT; 
FILL AT*] WITH " MSTART 



01082000 
01083000 
01084000 



1±Z 



LLFTuIT"*" AVAIL 



" MEND "* 
CNTRIsOf 
IF NOT CZEROKt*OPERAND(FENCE*VFENCL) AND FENCEUKC vFENCE ) ) 

Ij I- . , Y I- im» lli-Bnu..mJf n i.,lMn . . r- f- t I < - - a . . - 



OlOfa5000 
01086000 
010870 00 



T^EN IF NOT CZERQK»»(0PERAND(2*VFEKCE) 
FENCE0K(VFENCE: s VFE'KF.CF + 2)) ) IHE.N 



01088000 
01089000 
01U9000Q 



AND 



ZEROK»=OPERANO(fl*VFENCE) AND FENCEQKC VFENCE 8 > VF ENCE t FF + 3 ) * 



CHECKMEMQR YL INKS J ■ ■ZCROK ; 

IF P0ATADESC(SQ*SQP7R) THEN 



01091000 
01092000 



BEGIN sQPTR:=SQPTH,CF; 

FOR H»0 STFP 1 UNTIL WlXMA X DO BFGIN 



SQpTRi:=SQpTR + 1 ; 
OUMYIbCHRS(M[S3»3*i); IF OPEKANDCSUPTRl*Vo) AND VQXQ AND 
B0QIEANCV0.CH13) THFN IF DUmY«Q OH DUfrYsl QR QUMY S 4 OR DUMYsS 



0109**000 
01095000 
01096000 



DUMY»16 OR D0MYS32 THEN BEGIN 
MST ART I « VFENCE +1Q24XCHRS (M£S3* 6* 1 )i 

IF ( MENDI* VFrNCE+lo24*1024xCHRSCMtS3*S.l)»3 ) 

GTR 1020+ VFENCE THEN 
***** THE ABOVE TESTS FUR JOBS ABOVE THE FEiVCEJ 



OR 



010^7000 
010V8000 
01Q99Q0Q 



01100000 

01101000 

Oil 02 OOP 



MEMI QrrcNTRtsrNTR + n ; = mstahtxh -13:43*5] aMUyinna: 33: 153 ; 

ENDJ END1 END; MF.MLOCt CNTR+13 i «-7J 



01103000 
01104000 
01105000 



FOR 18*1 STEP 1 UNTIL CNTR-1 DO 
FOR JI»I+1 STEP 1 UNTIL CNTR DO 



01106000 
01107000 
01108000 



|2tt| 



I'll 

4fl 
,1 

4<t 
SO 
f .l 

■S3 



N 

2 
3 
4 
5 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43™ 



45 
46 
47 
48 



49 

50 



51 
52 
53 
34 



55 
56 



IF MEMLOCCU.CF G'lR MfrtLOC t J 3 ,IF THEN 

BEGIN 

VQ : aM £, M L QC C I3iN , F.M L QC l 1 3 :*KfcM LC CC J J * 



M.EMLOC[j]l«VO; 
FOR I ««0 STEP 1 
BEGIN 



end; 

UNTIL CNTR DO 



AVAILN«-AVAILT*-AVAILM«-N«-T«-M1*0; 
PREVLlNKSsMSTARTJs MEMLOClUtCF; M 
I, EFTI..IT«» MSTAHT + 1? AVAIL ;= MfrTART 



IF 1*0 THEN 
BEGIN 
J»( MEND»V FENCF W .H 



ENUs= Mfc.MlOCCn.FF* 

±Zi 



HI V 4096/ 



WHILE NOT MOOONCjJ DU o L C, 1 ,M mFN 
MEML0CC03 ,FF;=MENU; % THE mBOVE 



D:*MEMD-4C96> JisJ-1 END/ 
ALuQ^S FOR MiSblNG MUDS 



XiiUX 



IF NEWTYPE THEN ELSF. 

IF OPERANDCMEN0*2'D0MY) THEN 

TF fUlMY.ri 11,71 «0 AND UUMY ,FF«MENQ 



THEN 



NE 
PR 



wtype:=true; 

INTIT(MSTART/AL0] )i 
INTlT(l.EFTLIT,Arm 



PRINTIT(AVAlL#At2]); 

PRINTIT(MEND#AC33); 

IF IsQ THE N I F PP ER ANOC CORE t D uHY ) A ND O Ll HY * C H 3 1*0 T HFN 



BEGIN 



WRITECLINEC*]»FC 
OCTA LCL UHAL 



ure#uctalCcok 

F(CURE))*L)ljMY 



E),rjCTALthiHALF(CORE) 1* 

*1AJJJLU1S1SL b 



OCTAL(( J?*0 

OCTALCCJ»»0 

WRlTFCPmRLl^lSf 



UMY.CFx64),CF)#J* 
UMY.FFx6A).CF)#J); 
LlNFf »!>> 



ENO ELSE 

OISPLAY(CORE*FALSE); 
AVALNWQKiaTRUf J 



If LN»50Kl«MSTART0K»a0PERAN0(M 
V0.[l«2]*l 
Vn.r3ll23 g MEMLQCrT3.M3.53 A 



STA«T>VO) ANU 

ANO 

NQ 



C IF 1*0 THENCVO.CF nEQ AND vO.CF 
VO.FF * CMAXLNK J = M£ND ) THEN LlMK: 

hemi nc[i]n=MF,MLCcr, n k icmmjf 



LSS 4096) LLSE TRUE) AND 
=VO.CF ELSE 



IF 1*0 THEN KINLNK»*LINK1 

WHILE LNKSOK AND MAXLNK>PREVLINK 00 % 

IF LNKSOKtsfOPERANQCLlNlOVLINK) ANQ 



LIN^QKC 
VLINK.F 

C I F LI NK 



VLINiO 

FsPRtVLlN 

wMAXLNK 



K 



A NO * 
AND i 



THEN VL 
ELS 



INK* 

E VL 



CF * MSTA 
INK,CF>LI 



HT * 

NK) JTHEN 



BEGIN % 



prevlinks=link; x 

LINKI«VLlNK»CFi * 
IF AV AL NKQK TH E N t 



IF BOOLEANCVLIN 
IF AVALNKQKIsMA 
TF AVALNKOKt»(Q 



K,El«ll) THEN 

XLNK>PREVL1NK 
PFBANQfPHEWLT 



VLINK. Cl ! m*Q) THEN % 



% 

THEN % 
NK + tf VLTNK-) A ND % 



BEGIN % 
_ AVA U MgAVA R N +l/ * 



AVAILT»»AVA 

AVAILMtSMAX 

end; I : 



ilt + vlink.-ff; % 
(availm#vlink»ff); % 



09000 
10000 
U QOQ 



12000 
13000 

hoop 



15Q0Q 
16000 
17000 



18000 
18100 
18200 



16300 
19000 
1 , 9 1 00 



19200 
19210 
19220 



19230 
20000 
21000. 



22000 
23000 
23100 



23110 
23120 

231 30 



23140 
23150 
231,70 



23180 
^3190 
13500 



24000 
25000 
260 00 



26100 
27000 
26000 



28500 
2V000 
3QQQ0 



31000 
32000 
33000 



34000 
35000 
36000 



37000 
38000 
19000 



40000 
41000 
42000 



43000 

44000 
450QQ 



46000 
47000 
48000 



I 4 -' 
i -it 

r, 

|4(.l 
•<|'J 
t>(, 
51 

•A 

■4 

v:\ 



h 



2 
3 
4 
5 
6 

■; 

8 
9 
10 

11 

12 
13 
14 

15 
16 
17 



19 
20 
21 



24 
25 



27 



29 

30 



31 
32 



33 

34 

35 

36 

37" 

38 



40 
41 
42 



43 

I 44 

45 



49 
i 50 



92 



55 
I 56 



end; % 
if lnksok 

BEG I N 



THEN hRXTECP>RANGE»ijCTALCMS7ART)*0CTALCMAXLNK)) ELSE 



IF MSTARTQK THEN 

BEGIN % 

IF PREVLlNK»MSTftRT THEN WR I Tf ( Pi IW T)M OCT AK MST ART ) )£LSF -0 



MRITE(P#RANQE#UCTALlhSTART3#OCTALCPREVLlNK3); 
W RITE(P' BAD* "MEMORY" #CCTAL(LIMK))j X 
LINKLQCCI li-OSPREVuINK QlQi 



end; x 

minbadjslink; * 
prf\zltnk: s mstaRt; 



link«=maxlnk; * 

WHILE QPERAI\D(LliNK*VLII\t\) AND 
LINKHhf VI INK) AML 



VLlNK.CFsPREVLlNK AND X 
LIt)|K>VLlNK.FF DO X 
BFGIN % 



prevlink:=link; * 

LINKXbVLINK.FF/ * 

end; % 



IF PREVLINKSMSTART THEN 
BEGIN 
MFMLncri3l*MFMI flC( I UL1 T 4 U7 i 11 



end else 

BEGIN 
IF(MAXRAD;gPREVLlNK)gMAXLNK 



THEN 



WRITE(P>QNEQK,QCTaL(!»AXlNk)) else 

WRlTE(P#RANCiE*OCTAHMAXtNK)>OCTAL(MAXBAD)); 
WRITECP»BAO« , 'WEMORY M *Of:TALCt INK '} >i * — 



MEML0CCn:=MEML0CCn41tbU7;n; 

LlNKLOCLIl :<?LlNKLOCHUf-HEVLINK 

XNOJ , . 



CTF. 



end; 

NDWRAPARCUND:sTRUE> 
IF AVALNKOKtafOPrRANnrAvATL/PREVLlNK) 



AND 



PREVLINKsMXLNK+1 AND % 
OPERAND(PREVLINK^VLINK) A^D % 
VLlNKinil^JsO AMP %, 



VL I NK.FFs 32.767 
COPERAND(PREVt.lNKss.MAXLNK + l/VLlNK} 

vi iNK.n n73an ftNn % : 



OR X 



AND % 



BEGIN 



VLINK,FF»32767)> THEN * 
WHILE AVAI NKOK ANn it 



NOWRAPAROUND 

(IF LNKSOK 

(IF INK5UH 



AND X 

THEN AVAILN>N £LS£ TRUE) AND X 
THFN AVAILT >T TlSE TRUE! AND % 



{IF LNKSOK THEN AVAILM ghj ELSE TRUE) DU 
IF . NOHRAPAROU NCI «(MEND>LlNK«»V LINK tCF AND LINK>C) 
IF AVALNK0KI«(0PERAMD(L1NK-1»VLINK) AND X 



THEN * 



LINKOK(VLINK) AND X 
BOOLE AN (VL INK. £1 14 3) AND X 
QPrRAKrULTNK + ljVLJNX) AND X 



VLlNK,FF=(iF MEWTYPt THEN LINK"! ELSE 0) AND X 
VLINK,CF=PREVLlNK+RtAL(NEWTYPE) AND X 
0PERAKD(LINK*VL1NK) and % 



VLINK.C1»173»0 
VLINK.CFXLINK) 
BEGIN X 



AND X 
THEN % 



1-49000 
150000 

lblOOO 



152000 
133000 

nasno 



ib^oOO 
155000 
1 560 00 



157000 
158000 
158500 



159000 
100000 
161000 



162000 
163000 
164000 



165000 
166000 
167000 



168000 
168100 
16B200 



108400 
169000 
1 ft VbOQ 



169600 
170000 
171000 



172000 
173000 
174000 



17 5000 
175100 
177000 



178000 
179000 
IflQOOO 



181000 
181100 
lfil?nn 



161300 
182000 
1830 0Q 



183100 
184000 
18500Q 



186000 
187000 
189000 



189000 
190000 

m o o o 



191100 
192000 
193000 



194000 
195000 
196000 



|.1!-J 
40| 
17 • 
4U 
14 
50 
fl 
S2 
53 > 



>r 






10 

11 

12 
13 
14 
15 



16 

I ' 7 
IB 

19 

I 2C 
21 

22 

I 23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 



36 
37 " 



38 
39 



40 



45 



49 
50 



53 



55 

56 



t:-t+vlink.ff; i * 
Ml tsMAyf mi ,i/i iwk.fd; 



01197000 

oi is>aooo 

Q11V9QQQ 



PREVLlNKJaLINK/ * 01200000 

end; % oiiioiooo 

IF NOT AVALNKOK THEN WKH EC \> > HAL), " AV ALBL"» CCT AL (L INK 3 ) ELSE 01202000 



IF LNKSOK AND 

NOT(AVALNK0K»= 

LNKSOK AND 



AVARN = N 

AVAILT'T 

AVA.Il.M_Mt 



AND 
ANO 

AND 



VLlNK.CFsMAXLNK+1 ) THEN WH I TE ( P, A VLGAD ) 
BEGIN WR I TECP, A VL, N* OC T*L ( T;M, U I TAl CM* ;> Ml )j 
MFMi OCT II. [2 H JisR^ALCLNi^ s n K J ? 



ELSE % 



end; 

END ELSE WRITECP,BAD#"AVALBL",aCTAL(MAXLWK+l>); 
WHTTFCPCDRLn; it ______... 



rtHITF(P*TELLM,VlFML0CCl3.[lJ:5]/ IF I-U 

THEN "(BELOW ELSE "(ABOVE", » 
W,RI,TFf P>STAR5M 



THE F'VEnCE) "); 



END LOOP; 

END CHECKMEMORYLINKS; 

ARRAY tJlXSlMJJXAMlxHAXjJ 



BUOLEAN PROCEDURE RCwMSCwSEARCHCTUs* BQS* AN3 ) i 
VALUE TOS.BOSJ REAL T0S,B0S#ANS; 
-EG IN 



real adr,b; label up; adrsstos; 

UP« IF CONTROLOESC(AUR.a) THtN 
IF (BI-R.FF1-0 THFM RCHMS -HSEARCHIbTPUF 



ELSE IF A0R:=B>8US 
THEN GO TO UP; 
ANS;=AHR? 



AND T03>B 



end rcw mscw search; 

INTEGER SSTACK, SSTACKlNXi 
PHflrrnnRF sPArFSTAPKrTMprTns _ ; 



VALUE T08J REAL TGS; 

BEGIN 
RFAI RnSfHr 



IF 0PERAND(SPACESTACK»BOii) AND 
AND TOS LEQ B0S+128 THEN BEGIN 
STAXCMAKS TKLFM-HnSl 



CBUSJsBOS.CF+l) LSS TG3 



if contrqldesc(bos*b) then staxlo] i_b,ff; 
sstackinx»=maxstk; 

END/ END SPACE STACK FIMU 



PROCEDURE GETSTACKSFRaMTHEBeD; 
8EGIN 
CDMMFNT .... 



THIS PRQCEnU-F HAS BEEN REWRITTEN TO 



REFLECT THE MANNER IN WHICH THE BED IS KEPT IN 
THE TIMESHARING SYSTEM, ESSENTIALLY WE LINK 
THROUGH THF RFD FUHHAhD, PUKING UP STACKS 



UNTIL WE FIND A BAD LINK OF FINISH SEARCHING. 
IF WE FIND A BAD LINK *E START LINKING BACKWARD 
UNTIL WE REACH A BAD ______ THIS PERMITS US TO 



RFAL 



GET THE MAX INFO UUT OF THE BED 

IS CLOBBERED FUb#. 

RFD I NK.VREni NK.UHFyl MK . _P RF .i Nn ; 



WHEN PAKT OF IT 



INTEGER Mix; 
LABEL FWDBLOWUP'BKWOBLOINUP; 
IF (QPERANruflrn.ua rm amp 



01202500 
012C3000 

nutKuoo 



01204000 

01205000 
01206000 



01207000 
01-08000 
012060^0 



01208200 
01209000 
01210000 



01211J00 
01212000 
012UQ0Q 



01214000 

012J5000 

-0l2t6Q0Q 



01217000 
01218000 
ni-lVQQO 



01220000 
01221000 
0l8__QQQ 



012*3000 
01224000 
01 -25QQ0 



01226000 
01227000 
Qi2?Rnnn 



01^29000 
01230000 
01231000 



01232000 
01233000 
0i23anoo 



012.5000 
01236000 
01237Q0Q 



01238000 
01239000 
01240000 



01241000 
012*42000 
01243QQQ 



01244000 

01245000 
01246000 



012<47000 

01248000 
01249000 



01250000 
01251000 
Q12.2QQ0 



14 

■wr| 

,47J 
48 
"J4L,. 
50 
51 
5? 
W 



I ! *| 
.__* 



>r 



9 
10 
11 
12 
13 
14 
15 
IS 
17 



20 
21 



24 
25 
26 



27 
28 
29 
30 



31 
32 
33 

34 
35 
36 

37 " 



38 



42 
43 " 



45 
46 



48 

49 

l 50 

51 



52 

i 53 



i 56 



(VBED.C2H] = 1) AND C VBED . C 9 : 9 J *b 1 1 ) 
CBEDLNK8=VBE0.CF)/BED) THEN 
SERIN 



AND 



PREVLNKJsbEo; 

WHILE BEDLNK^BED CO 

TF C flPFRANnCR'FDLNKfVRFni NK) 



AND 



(VBLDLNK.C2J 1J = 1) AND ( VBEDLINK . C 9 : 9 3 = 5 11 > 
PDATADESC(BEDLNK+l#VPREVuNR) AND 
(VPREVI NK>«\/PRr\ /L NK.r.F)= PHEVLNK AMi 



AND 



0PERAND(BEDLNK+?#MIX>) 
BEGIN 

■M:AXSTKl»M.AltSTK*lt 



THEN 



IF MIX GTR mixmax ThEN mix*=oj 
IF MIX GTR THEN M I XSTK L M IX J J =MAXSTK ', 

STAX[HAXSTK3l= (RFPLNMl) <UKfcAL(MlX fiTR QJJ XZ-iiLZJ4Jj 

PREVLNKtaBEDLNK; BEDLNK l«VBEOLNK»CF ; 
SRACESTACKFINDfPREVLNK); END ELi»E GO TO FWDBLO^uP; 
END E L SE 



BEGIN 

F WDBLOhUP: 

I F (PPAT A 0ESCCRED1»V B EQ) 



AND 



<VBED.C9l9J*511) AND (VBE0.FF>63) 

(BEOLNK»sVBED,CF +D/8ED1) THfcN 

BEGIN 



AND 



prevlnkjsbed; 

WHILE BEDLNK^dEC DO 
IF .(PnATAOES.C(.BFCLNK>yREf,)LwK> A.IN.U. 



(VBEDLNK,£9:S]*bll) AND 

OPERAND (BEDLNK'lfVPREVLNK) AND 
fVPRrvLNK. radian > t wn rvPBp vi nk. c«i qi«sih 



A ND 



C.VPREVLNKI*VPREVLNK.CF).aPHfcVLNK 
OPERAND (BEDLiMK + 1^ MIX)) THEN 
BEGIN 



AND 



MAXSTKlaMAXSTK+i; 

IF MIX GTR MIXMAX THEN MlX»=Oj 

If MIX GTR B THEN MIXSTK CM U3 fMAXSTKf 



STaX[mAXSTk3I=C8E0lNK)4CHEAL<MIX $1 H ) ) [7 « 47 : 1 J ; 

prevlnk:=bedlnk-i; beolnki»vbeolnk.cf+i; 

SPArFSTACKFlMnfPRFVLK*); END ELSE GU TO HKwnHLrrtUF ; 



endiend; 
8kwd8l0wup: bedstk j*m a xstk ; 

END GETSTACKSFRQWTHEBFDJ 



ARRAY INTCDEtO»MlxMAX»0:iNAMt.SUL-lJ; 

ARRAY NEXTlNTtOJMIXMAxJ; 

PROCEDURE DUMPMEMORYANDNOTESTACKacFRUM»TOO), 



VALUE FROM»T00; 
INTEGER FROM, TOO; 
RFGIN . 



DEFINE T=LINKTYPE#; 
BOOLEAN BEDDED/ 
RE AL L/M x ; __ 



FORMAT ITEMCX2#A3# ,, *"# 2CX4, A5 ) } J 
REAL «*ADR#Q#LL; BOOLEAN INTR*«T; 
BOOLEAN IRSTACK,MCPSAVEJ 



BOOLEAN MXN0T0/TYP13; 
DEFINE MXQsNOT HXNOTO*; 
REAL V>W»X»AVSI2E; 



INTEGER N,STK; 
FORMAT AVAlLABLE(X27* M **** AVAILABLE S IZ£*"> A5> "C "M5* M )")» 
MIXUSECX27,"MTXs">I2»X1*A6)j 



01253000 
01254000 
01,2 5 50 0. 



01256000 
01257000 
oi2banon 



01259000 
012O0000 
Q1261QQQ 



01262000 
01263000 
12 64 000 



01265000 
01266000 
,0 1267000 



01268000 
01269000 
01270000 



0127100 
01272000 
01?/ 3000 



01274000 
01275000 
01276000 



012/7000 
012/8000 
01^/9000 



01280000 
01281000 
128.2000 



01283000 
01284000 

oi2tt5t.no 



01286000 
01286500 
01287000 



0l28b000 

01^89000 
1 290QQ Q 



01291000 
01292000 
01293000 



01293800 
01293830 
01294000 



01295000 
01296000 
01297000 



01297100 
01298000 

01299000 



01300000 
01301000 
01102000 



01302100 
01302110 
01303000 



01304000 
01305000 
01306QOQ 



"'I 

51 



■i 



h- 



MCPUSE(X27#"MCP-- ,, *A6)» 
MCPSTACK<X27*"MCP F U ft K t Lj STACK--")* 
X XX C" "3; 



30/000 

ioaooo 

, 3090 



ARRAY ATPtOlT 
NOTPRINTCALLts 

fillareatypc; 



YPMAX+l)* 

true; 



o: 
o: 



3i0000 
310500 
31 6 00 



intr:*pdatades 
adrs=adr.cf; 

"IJNKNHN" 



C(INTRNSC*AD«) and 
FILL ATP[*J WITH 
>"CCDE %"CaTA !lx 



Hj-BliF w t 



311000 
312000 
313000 



9 
10 
11 
12 



13 
14 

15 
16 
17 
18 
19 
20 
21 
22 
23 



"HEADER"* 
"INTCDE% 



ALGF 

"MNT 



»» 



lB"*"INfiBUF"*"CQ8FlB 

LOG"/" 10%" 1 

lft%" 15"*" I 



%"1NT3EG"» 
1"*«STACK "* 
ft " * " 17% 



% " P " 

KHH.F FRQH<T 



18% 



19%"CIDRUw%" 2 

DENOTES AN UNtftCDGN 

fic un 



1"*" 22"* 
IZEU LINK TYPE 



314000 
315000 

■3 1 6QQQ 



317000 

318000 
,319000 



BEGIN 
IF T 



l:=»mcfROM,rqw,frum.cul3) 

»«L. M*6 3 GTR TYPHAX THE 



»CF* 

n i .raifiJ t«T>«TYPMAy*n»RAnTVPF 



,320000 
322000 
322100 



MxN0T0: = CMX: = L.t9:6J ) Mfca 0> 

IRSTACKI»L. 11183*76* 

I F ES O OLEA NU , , [ 18 1 3 )' IHFfr 



IF NOOUMP THEN ELSE 
BEGIN 
AVSI7E** 



,322150 

322200 

. 3 2 3 000 



323100 

,324000 
325000 



24 

25 

26 

27 

28 

29 

30 

31 "* 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



IF QPEHANOCF 
X.FF ELSE -1 
WRI TEC PCORt 1 



ROM +l*x) kKO X.tl*l7]ac 

oooo; 

*AVAlLABl,Ff IF AVSUfc 1, S& 



lhtN 

THl-N "*»***" 



326Q00 
327000 

3280Q0, 



ELSE OCTAL(A 

AVALNKSsTRUE 
PRTNTfFBOM*T 



VSIZE)*AVSIZE)* 

; 

F DUMPAVA TI QR_ 



329000 
330000 
331000 



AVALNKtsFALS 

E&D 



needcheckavailnks then n 
e; 



ELSE FRUM+3); 



332000 
332500 
33300Q 



ELSE 
BEGI 

qt:«operan 



N 
0(FRCH+1*Q); 



,334000 

,335000 

336Q0Q 



mcpsave:=qt anc 

AND Q, 
IF MXQ ANPUT«1 



XO AND LtC25 133=4096 AND O.fFXO AND G.CF2129 01336500 

CF SPRTMAX* 01336600 

ANn MP QR MCPaAVE) friFN t MCP 01339000 



IF NODUMP 
IF QT AND (T*7 



THEN ELSE DISPLAYC 

CR T=13 OR CT*1 AND 

AND Q.FF LEQ 102 



Q.Cf*FALSE) else 

Q.CF L.£0 1023 
3 AND 6.L1«7J»0)) 



,339100 

,340000 

340050 



ANO(LL5sQ,1.8 ! 103 
NOT BaQLLAN(L.C2 
BEGIN % INTRINSIC 



) NtvJ AiMU 
«13J THE* 



,340075 

,340077 

3aQlQQ 



45 
46 
47 
48 



IF 



CRJ* 
IF 



T»7 AND INTR AND W 
AN D Vi*V .CF 6 TR 



XO AND 0PERANDCAOR+LL*V) 
1023 THFN V FLSE ; 







_0_ 



340150 
340200 

34Q?«30 



IF CTYP13J=Tsl3 AND M 

THEN FRQM+2 tLSE 

GTR V THF.N 



XNQlO) GH(Tel AND MXNUTO) 
0) 



0; 

0: 

_0J 



340300 

340350 
3404Q Q 



49 
W 
51 



BEGIN 



IF T NEO 
BEGIN . 



7 THEN * SAVE OFF TYPE 1 «. 1 3 INTS 



340450 
340500 
340510 



52 
53 



54 
55 
56 



IF NEXTINTCMX] »* 
INAMESI2E-2 1 HEN 
TNT COEt MX / NE XT IN 



NEXTINT[MX3+1 GTR 01340520 

NExTINTtMXJ J«NEXTINTCMX3-1; 013405 30 
TrMx Ills . Qn3a05SO 



R & LLC 8» 38 MO 3 
(R+fl.FF-1) CTf & 

XWXS 



R£AL(TYP13)CU47»13; 



340600 

,340650 

340660 



h- 



13 
14 
15 



16 
17 
18 



19 
20 



21 



23 
24 
25 



28 
29 



31 
32 



34 
35 



36 
37 " 



, 38 



♦0 



49 
I 50 



I 53 



55 

1 56 



IF NODUrtP Tht-N tLSL IF LL LEG INTMAX THEN BEGIN 01340700 



WRirE(LIN£.[*J#ITEM»aCTALlLL)*OCTAL(R)* 
— UCTAltfi + CFF-U ) ; 



MOVE(INAM3CINAMfc'CLt.3.CF]#tXNEC4]» 
lMAMECLL].FF>i 

-WU4-& (P[PBU»7»ulN£C*U E ND 



01340750 
Q1341Q00 



-IE- 



END 

END ELSE 
NUPUHP THEN 



01342000 
01343000 
01344000 



Ei-SX. 



IF MXNOTO THEN WRITECP[D8tI#MIXuSE-MX»ATPt TJ) 
IF IRSTACK THEN 
BEGIN 



ELSE 



01344100 
01344200 
<U 344 300 



WRITE CLINtL*],MCPSTAClO; 
IF OPERANDCFR0M + 2»W) A im 
V*"H.C8li»1 fiTR 129 Ai\U V, 



01344500 

01345000 
01346Q00 



I.F.Q PRMAX 



THEN MOVE(NAMSCNAMECV],CF]*LlNEC6 3#NAMEtV3.FF)i 

WRITE(PCOBU3»9#LINE[*J); 

END ELSE 



0134/000 
01348000 



HRlTECPCDBL]#MCPUSL#ATPCT3ii 

END IN USE LINK UECUblNGj 
BEnD EPt~FAl .SE; 



01350000 

01351000 
o^353nnn 



IF NOT BOOLEANCL.tlUJ) THEN 
BEGIN STKts-U 
WHILE HAXSTKaSTKI»ST* + 1 



01353000 
01353500 
013538PQ 



AND NAT BEDDED DP 



01353000 
01354000 
o^3ssnnn 



IF BEDDtD:= 
(LH«STAXti>TK]tCF 
I F ST A X C STft J , FFsO 



GTR FRGM AND N GTH LL) THEN 
THlN fiTjEXCSTKl ».FF :*FKQM *2j 



NOTPRlNTCALL'aNOTPRINTCALL AND NOT MCPSAVE; 
PRINT(FROM# IF(ONEMIX?0 AND 0NE«IX*MX ANO MX*Q) 
ORCNQKQRMLCQOE AnDC C JsT QR T*lU OR 



01356000 
01357000 

(Ujftaooo 



CT»1 AND MX>uJ)) 

OR (NOMCPCOOE ANU(Ltt3«t2J«64 OR MCPSAVE)) 

THKN FRQMt? LI SF tilt 



01358050 
01358100 



01358300 
01358400 
01 35d5QQ 



mcpsave**false; 

end; 

%BELnW,WE PICK UP STACKS nQT ASlEEP FqR "DUmPSTaCk* TQ DUMP LATER 



% 1-6,!] IN STAXC*] Is USED TO 

IF NOT BEDDED THEN 
IF IRSTACK THFN 



INDICATE SPECIAL fOP-OF-STACK TREATMENT 



01358550 

01358600 
01359000 



STAXcMAXSTKJaMAXSTK+l3 is 
CN*l)&(FR0M+2) CTF & l[6:47li]j 

from>»n; 



01360000 
01361000 

01362000 



01363000 
01364000 
01376000 



end; 
notprintcall*=false; 

SSTACK}»STAXtOl; 



013/7000 

01377500 
01378000 



END DUMP MEMORY AND NOTE 
ARRAY MCPR0GC0J255]; 
INTEGER MAXMCPRDG .FSP ; 



stacks; 



ARRAY OUTERBLOCK[0*0];x 
PROCEDURE SEQUENCE CAR A Y,LIM); 
VALUE 1. I M ? 



01379000 
01380000 
013H100Q 



ARRAY ARAYC03I 
INTEGER LIM; 
BEGIN 



01382000 
01383000 
01,364000 



INTEGER T#L; 

REAL V; 

STREAM PROCFDURE 



01385000 
01366000 

QiaaTOQo 



Mi-iMF r SiD^uaa.M-^?)} 



VALUE 032, M32; 
BEGIN 
S, H»S J D Iftf j 



01388000 
01389Q00 
01390000 



01391000 
01392000 
P1 3V3QQ Q 



>T 



i 

2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 



13 
14 



15 
16 
17 



IS 
20 
21 



22 
23 
24 



25 
26 



28 
29 



31 
32 
33 
34 
35 
36 



37 
38 
39 



41 

42 

43 ~ 

44 

'5 

46 

47 

48 

49 



52 
53 

54 
55 



FN I) 



D32(0Sls3g AQS); 
D S : * M 3 2 W D S > 
MOVE/ 



t;*lim; 

WHILE a:*!' 
BFfilN 



1)40 DO 



i {*lim; 

L: = (V:=ARAYLT] ).CF> 
WHI L E A R A Y [ I3 . CF> -4 



IF (LI"I-T)>0 
BEGIN 



■ CF>L C O 



HEN 



END, 



MUVECARAY[T+n»ARAYLTj,L.L37*6]#L.t*3:5J); 
ARAYCI] *=V> 



end; 
end sequence' 

PROCEDURE GFTSflRTANUl jSTMCPRUftJ 



BEGIN 

REAL R; 
TNTFfifcR 



TYP 



FORMAT TOTALPRUCSC///"*** A TOTAL OF "#l3*" MCP 

"PROCEDURES WERE PnLSEnT IN MEMORY")* 
rf xft.«p.RrRFMT uc.9 PKUrrnuRFS"// 



"PRT , SXb*"UE5ChlHT0r>", / <y "THKU"//); 
IF 0ESCR1PT0R(ESPBIT*R#TYH) and TYF' = "75" THEN 
MCPBOGrMAXMCPRnmi* ' 



(ESP»sR,CF)4 

(ESP+R.C8U03-nC18i33«lbJ* 
FSPRlTTflt 3R1 101 



ELSE MAXMCPRGGS'-i; 

QUTERBL0CKCC)»»CPRTMAX+l)4tESP-l) 
FOR T «»129 STEP 1 UNTIL fRTHAX fiU 



CTF 



IF DESCRlPT8R(I'h*TYP) AND 
(TYP*"75 M OR TYP*"77" 
R.CF*FSP THE.N 



OR TYPs"7* M ) AND 



MCP«OG[MAxMCPROt"!=MAXMCpRGG+l];s 
R.CF& 

tR.rFtR.rR;iQi-nri8»iJ'^,ia 



net 38! io]; 

SEQUENCE CMCPRCG'MAXMCPRQG )i 

N EX TPA GFJ 



WI<ITECP#F); 

sgltog;=true; 

FOR T:=U STEP 1 JINTII, MA^MCPHQft Qp 



DISPLAY(MCPR0GCn.C8J10]*TRu£)i 

SGLtnGl«FAL$E* 
WRITECP*T0TALPRCCS,MAXMCPRP6+1)J 



END GET SORT AND LIST PRESENT MCP PROGRAM SEGMENTS* 

ARRAY I NTSPIO J 2xl NAME SIZE]; 

TNTFGER INTSPMAX, FXTR A INTSPwAxi 



PROCEDURE 
BEGIN 

1NTE GFR 



getsortandliStintrinsics; 

LMAXj-MJJLUJ 



REAL ADR»R»L>R»V; 
FORMAT ITEM(X2»A3*" *"* 2 CX*' A5 )> X2f a2* X2 )» 
FCXflf"PRFSr>vT TNTRI.M&JCS"// 



" INDEX"* X6#" FROM"* X5* "THRU" »X2#" TYP"/)* 
BUDINTOC"*** BAD INTRNSCCOJ" ) » 
MIXTNTCX Bf^MTX f M 2W _ 



01 3*4000 
01 3*5000 



C1397Q00 
01398000 



01*00000 
01*01000 
01412000 



01*03000 
01*04000 
01*05000 



0140600C 
01*07000 
01*0 8000 



ohovooo 

01*10000 
01*11000 



01412000 
01*13000 
01*14000. 



01*15000 
01*16000 

-o;*i7ooo 



01^18000 
01*19000 
01*20000 



01*21000 
01*22000 
* 23( 



JU 



1000 



01*2*000 
01425000 
01*26000 



01*27000 
01*28000 
01*29000 



01430000 
01431000 
01432 QQ0 



01*33000 
01*3*000 
01*35000 



01*36000 

01*36100 

JDH37QQ0 



01*38000 
01*38100 
01*39000 



01440000 
01*41000 
Q 1** 2 0Q Q , 



01**3000 
01***000 
1 **5 000 



01*46000 
01447000 
01**8000 



01*49000 
01**9050 
01 **9 100 



141 

4'' 

.irl'l 



\4 



ff 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

«7 

18 



49 

I W 
51 

52 

I 53 



55 

I 56 



FOR MIX t = 1 STEP 1 UNTIL KlXMx 00 
BEGIN 
I :sQ# V8?l> 



IF (Qta IK7 
DO IF Q LSS 
IF T fiTR 1 



C0rtMlX#H«I + U) NE'Q THEN 

THEN Vl»-1 UNTIL Q ! «J NHO£CMIX» 1 J*l + 1 ] aQi 

T HFN HFG1N Ri»-H IMTf.nE CM I X» 3 I » V END; a 



end; 

IF « LSS ThFN 
IMTSPMAXl^-l ; 



INTCDEtO'0 3 :»i; 



IF PDATADESCCINT 

BEGIN 
IMAX >*A f)R.r 



HN5C*AD«) THEN 
iLU 3 * 1 / 



ADRI»AUR.CF 
IF OPERAND( 
R HE fi 



jHUL 



ACR*R) AND K . t 1 : 3 3 = 
AND R LEU [MAX, IhiLN TMA< 



f»H ELSE MIXjs-l? 



IF IMAX GT 

FOR i?*i ST 

IF QPERANOCAQR+fR) 



H THEN 

EP 1 UNTIL IMAX DO 

AI3R+I«R) AMD ft.CF>102* THE 



JSL 



INTSPCINTSP 
IF I si 7 T 
R .C F & — 



HAX* = INTbPMA/+-l J ;s 

HEN R.CFiCR.CE+3) CTh & HaUBilOj ELSE 



(IF 



QP£KAND(R.CF*1*L) AND 
0<(L;sL.FF) AND 
K1023 THEN 



-tWJ, 



R.CF + L-1 ELSE H.CF) [18533: lbU 
It8*3fl«i0]i 



IF INTSPMAX 
BEGIN 
NEXTP AG E, 



GEQ OR IwTC0ELO,0J NEQ THEN 



DISPLAYCINT 
IF MIX LSS 
rtRIT E CP'F) ; 



rnsc/Trud; 

THEN *RITE(Hrut»LJ#dADlM'0); 



IF INTSPHAX 
SEQUENCECIN 
H , R IT E(PtOB L 



GEQ THEN BEGIN 
TSP, INTSpMAXii 
3^ MI XINT/OM 



for is=o step i until intspmax lo 

BEGIN 
WRTTFfL.lNE[*3f ITLM'OCTAL (L LsJJttl&JHI I3.CflUQ3 Li 



0CTALCINTS»LI3»CF)» 
0CTAL(INTSP[IJ.FF)»7); 

IF LSIN TM A X TH E N 



M0VE(INAH5CINaMe[LJ . CF 3 > l INE C 4 3 > 

iNAMEtL3.FF)i 
WR IT E (P*7^L 1 N E [*J)> 



end; 
writecp); 



end; 



IF INTCDE[0^03 
FOR MIX!*! STEP 

IF (HITNTC DEC MTX 



NEQ THEN 

1 UNTIL MIXMAX 00 
/Op NFQ THEN 



BEGIN 

u»o; 

HRITE(PCDRL3.MIXINT>MIX); 



4^9160 



449170 
449180 
«49 2QQ 



449220 
449240 
4 5000P 



451000 
41j2000 
4 53.000 



454000 
4b4l00 
454 , 2 00 



455000 
456000 
4 57 QOO 



456000 
458100 
«39QQQ 



460000 
401000 
462000 



463000 
46400U 

4 fa5 QQQ 



466000 

467000 
468000 



4 09000 
469100 
4^0000 



470500 
471000 
4/1100 



47200C 
473000 
474QQ Q 



475000 
476000 
4770 00 



478000 
4/9000 
400000 



481000 
481500 
»82QQQ 



482100 
462120 
«6214Q 



482160 
482180 



01*823 00 



WHILE (Ri»INTCD£CMIx#H«I+l3) NEQ DO BEGIN 01462220 

WRITE(L1NEC*1* ITEM#UCTALCLI«R,[8I 10])*0CTAL(R,CF># 01482260 
0PTAL(R.FF),QCTALCIF R LSS THEN 13 ELSE 1))J 01482300 



IF L LEQ 1NTHAX THEN 
M0VECINAMSLINAMEtL3«CF3#LINEU3> 
INAM£tL3tFF)J ___ 



01482320 
01482340 
0^8236Q 



ffl 



51 

12 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 



47 
48 
49 
50 
51 
52 
S3 
54 



56 
56 



write(p»7#l1nf.i*] j* 
end; 

WRITEfP )} 



end; 
end; 

CQMMFNT 



HOVF TYPr 1 & LJ 1NTHTN5ICS TimTO IMSP FOR USF LATFR 



IN STACK ANALYSIS; 
EXTBAINTSPMAXislNTSPMAXi i:»0; 
JF INTCDFLOiQ] NEQ T H L N 



FOR MIXI*1 
IF INTCDEC 
HHIlE(Rl*I 



STEP 1 UNTIL MIXMAx DO 
MIX»OJ*0 THEN Il»0 ELSE 
NTCPEtNlk»m*I + l "N NFB C DO 



INTSPLEXTR 
END GET SORT A 
STRFAM PROCEDU 



AiNTSPMAX:eEXT6AiMiiP^AX+l]:sR> 

ND LIST PRESENT IiNTRINSlCS/ 

RK, Ml.VC,(5>SP»nM)P'Hr<, U 



VALUE SP#DP»K,c; 
BEGIN 
Srt«s; sii«st4.sp: 



Di:=D; Dl: 

W(QS»*e CH 
END M Q VCi 



sdi+dp; 

R); DblsC CHKj 



BOOLEAN PROCED 
VALUE AMAX 
ARRAY ARAY 



URE WlTHlN(ARAY#AhAX» ITEM* RESULT* PLUS ) ', 

»item; 

103; 



INTEGER 
BEGIN 
B 00 1.F. AN 



amax, item, result'plus; 

found; - __^___ 



LABEL EXIT; 

IF AMAX*0 THEN 

FOR IlsQ STEP 1 



UNTIL AMAX OH 



IF F0UND*= 

(ARAYLI3.CFSITEM AND ITEM <ARAY[I].FF) THEN 
BEGIN 



RESULTl»ARAYri3,C8«lOi; 
PLUSI"ITEM-ARAY£I].CFi 

r,n to ryTT : 



FND 



end; 

exit* within*=fdund; 

w ith i n; 



ARRAY P80GSCO! 

PROCEDURE GETBETT 

V ALUE TQS * D E LTA »IN 



3»0l255i; INTEGER PRDWS; 
ERTCS(T0S# DELTA* INC,BOS#NEWT03); 
cbp s; 



INTEGER 
BEGIN 

CP.MHENTITHIS 



T0S*DELTA»lNCjB0S#NENT05i 

PRDC IS IIMTFNDFn TO HE USFD WIT H CONTRO L 5TATF 



STACKS WHOSE ACTUA 
KNOWN). WE ARE "DO 
IN "NFWTOS" THF SM 



L TCS IS UNKNOWNCQNLY A MA 
NE" WHEN*BARRING ABNORMAL 
ALLFR 0F» 



XIMUM VALUE IS 
CONDITIONS* WE RETURN 



1) 
2) 

TD 



"TQS" 
THE ADDR 
OBTAIN T 



AND 

ESS DF 
HE "TOP 



THE "T 
VALID 



OP VAL 
CQNTR 



ID 
Ok 



CON 
WQR 



IROL WOR 
0" t\E SC 



D" +UELTA, 

AN DUWN THE 



AT "TOS" UN 
OF THIS "OR 
APURESS O F 



("BOS" +"I 
CHECK FOR A 
THIS LA TTE R 



TIL WE FIND A CQNTROLWORDCCW), IF THE F-FlELOCFF) 

IGINAL" CW PUINTS TO ANOTHER CW ANO Th£ 

THIS LATTER CW FALLS IN THE RANSE "BOS" THROUGH 



STACK STARTING 



LONGER LINK 

CW STARTING 

-PROCESS*-*** 



NC") WE 
CW AT 

CW A ND 



ARE " 

THE AD 

N E P EA 



DONE" 
DRESS 
T TH E 



IF ND 

GIVEN 
RANGE 



T IN TH1 
BY THE F 

re s T UhT 



TO A C 

AT THE 

******* 



W, IN 

NEW V 

****** 



THIS 
ALUE 
****** 



LAST C 
F "TOS 
****** 



ASE WE L 

" ANO RE 
******** 



S RANGE 
F OF 



WE 



"DUNE" UR NO 



QOK FOR ANOTHER "ORIGINAL" 
PEAT THE ABOVE DESCRIBED 

** * * ************** *»*****j Q 



4&2J80 
4b240C 
4 8 2 42 



482440 
482445 
4B2aS0 



462460 
4d2470 
482480 



482490 
482500 
4e?5lC 



462520 
483000 
484000 



485000 
486000 
487000 



488000 
489000 
iAMXOOO- 



491000 
492000 
493000 



494000 
495000 
496000 



497000 
498000 
499QQQ 



500000 
501000 
502000 



503000 
504000 
505000 



506000 
507000 
308000 



509000 
510000 
51100Q 



512000 
513000 
514OQ0 



515000 
516000 
51 7QQ Q 



518000 

519000 
520000 



521000 
522000 
523000 



524000 
5*5000 
526QQQ 



527000 
528000 

529QQQ 



l«r| 
'■I,' 1 
4 I'll 



'ibi 
!',6 

4 



ft 

2 
3 

4 
5 
6 
7 

e 

9 
10 
11 
12 
13 



16 
17 
18 



19 
20 



21 
22 
23 
24 
25 
26 



28 
29 



30 
31 
32 
33 



34 
35 



36 
37 " 
, 38 
39 
40 
41 
42 
43 



I 44 
46 
46 

I 47 
48 



49 
I 50 



51 

52 

i 53 

54 



55 
56 



REAL T0S0KIG*X>Y;B00LEArt W00PS#CD; 
LABEL SQUEEZE, CUTBACK, LAST>XlT; 
TQ.S(,1RIG.=TUS; . 



SQUEEZE: 



IF B0S*0 THEN 
00 TOSJ=TOS-l 



GO LAST ELSE TOS »*TOS+ U 
UNTIL CONTROLOESC(TUS»X) 

iOnPtiiaTflS LEQ BOS) 



OR 



-C- 



IF WOQPS THEN GO LAST; 
CUTBACKS IF CY:=X,FF) GEQ BOS AND 
___ Y LEQ ( BOB ♦ I N C ) AJuA. 



I ASTt 



BEGIN 



CDI»CONTHOLDESCCY»X) THEN 
NEWTJlSSsMTiMf TOSDrilCTyS + DF llkii 



GO X it; 



END 
EL SE 



IF Y GTR BOS+1 AND 

THEN GQ CUTBACK; 

GO SQIIEF7E8 



Y LSS TO 5 AND CO 



XI T I END OF GETBETTERTUS; 

BOOLEAN PROCEDURE PRUNLNK C TOS* BUS* C ) ; 
VALUE TOSfRnSi REAL TflSyhnSjCJ 



BEGIN 
REAL R»FJ 
WHILE NOT 



BOOLEAN CKi RtaTQS; 
OK AND R GTR BUS Dfl 



IF QK.I»RCWMSCWSEARCH(R#80S#FJ THtN 
WHILE N0TCC0NTR0LDESCCn+1#F) J AND RX1US 
Rt*R»l ELSE Rl » R"i; — 



uu 



c»«r; prunlnkjsqk; 
end prunlnk; 

BOQLFAN HQOKnRUNhOQKINfl; 



real locircw; 
procedure dumpstackcinx); 
vai he inx; 



INTEGER INX; 
BEGIN 
LABEL SKlPEEE.EHRnWT»DUMPlTi 



LABEL AGAIN; 
BOOLEAN RECYCLING; 
REAL XrYi 



INTEGER TQS#BOS»SEG#ADR#H#L'PRO»I; 

INTEGER IY; 

OEFINE FORKED*BOOLEAN(ST»X[lNx3.tfl>l3 )« j 



DEFINE jUSTBELOhTHEFENCEsBOuLEAN(STAXCINX3.t5»l])#; 

DEFINE SPEC*BC0LEAN(STAXCINX3 . [ 4 l 1 3 ) * ; 

DEFINE EYE STACK eBOOLEAN(STAxtlNX3.C3»n)>; 



INTEGER DELTA#INC»w; 

DEFINE MAxSTACKSI2E»512#;«MAX 

OEFINE CQNTROLsivQT NORMAL** 



STACK BELOW TQS WE"LL DP 



REAL V*R/ 

boolean normal^ouno; 
format hp( x6 f" stack fr q" 



w >rtb>" 



UtiWi^ TO %A^> 



INTSTACKCA5," 
S(X8> H B£D ENTRY 



* M »o#xi/0)# 

AT % H5*X2p"*"»Z<.XI>QU 



'» "> W MAS* At %A5*X2#"* W »2(X1>0))» 



C(X8#3A6,Xl,A4, M ("> I4*"3' 

" c " » i 4 * •• s " * 1 1 # *• ) " ) ; 
nextitem; 



♦ " > A 4 > 



WR1TE(PCDBL3>HD> 

IF CT0S»*STAX[INX3,CF) 
ELSE O f TALfTOS ) / 



SI THEN ♦'*****" 



bJOOOO 
b3l000 

532000 



533000 
534000 

535000 



336000 
537000 
5 J8 



539Q00 
540000 

341000 



542000 
5«300C 
5a4 Q QQ 



545000 
546000 
547Q0Q 



b^ttOOO 
5<*9000 

saonoo 



551000 
552000 
553000 



554000 
5b5000 
5560 0Q 



5b700G 
5b8000 
558100 



558110 
bb90QQ 
56Q000 



561000 
562000 

563QQQ 



563100 
563200 
564000 



565000 
565100 
566000 



567000 
5o7l00 
567200 



568000 
569000 
570000 



571000 
572000 
5 7 3 QQQ 



sraooo 

575000 
576000 



577000 
578000 
5/9000 



580000 
581000 
582QQQ 






h- 



2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 



15 

IB 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

JO 

31 " 

J2 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
iO 
51 
52 
53 
54 
55 
56 
P7 



IF (BnS»e5TAXCINX].FF) 
ELSE" OCTALCOUM); 
IF BUS LS5 fi4 THE N ri 5??U; 



C THEN 



'*****' 



oi5b3ooo 

01b«4000 

01585000 



IF TOS SI THE 
IF SPEC THEN 
N Q RM A l , l »BntU F 



N GO errowt; 

go oumpit; 

ancs ta xt tn xj. [ 7»1 ,] )/ 



01587000 
01587100 



I 
%****STAC 
atTHE FPU, 



F INX EQL 
K 7H BE DUMP 
(THING CASES; 



GR INX GTR BEDMk Th£N %%«*%%%%%%%%%% 
EC IS NOT lh Tht BED. wE CURRENTLY DEAL WITH 



01569000 
01590000 
015V100G 



XI. NORMA 
X2. CONTR 



L STATECN.S. 
OL STATECC.S 

THF INTFR RU 



) STACKS NOT AaLEEP 
.) STACKS NOT ASLEEP 
PT ST ACK AT PI 00 



01592000 
01593000 
01594QQQ 



% 

% 

JL 



B) 

C) 

-01 



ISTAC 
STACK 
TYPF 



K (IF 
S BELC 
12 FAR 



NOT ASLEEP ) 
Yi ThE FENCE 
KFU SXaCJw 



(STACKU^SPACESTACK) 



015V5C00 
015V6000 
G 15 9700 



0- 



% FOR N.S* STACKS WE PRINT THE wORO AT R-l, CUTBACK TO THE 01598000 

XLAST WORD 8f "33"S» PRINT THAT WORD* CUT BACK FURTHER TO ELIMINATE 01599000 

ttST'AfiK THAT IS KlO |fUr,FR U A | I n . AMD PRlhT FROM A MHftF RFCFNlT 0^600000 



% TOS DUW 
% FOR T 
XGJVTNfi T 



N TO B 
HE INT 
HF. IDE 



OS. 

ERRUPT 
NTIFIF 



STACK WE DUMP FRQir. 
RS hLl- I NED A1 [HESK 



*l77 DQHN TL 
LflCAl UlMSt IF 



XTHEN CUT BACK FROM PRTbASE-1 To THE LAST WQRD OF "25"S 
XANO THEN DUMP FROM THAT WORD DOWN TO S100. 
_I TnR ISTACK HE OUT RACK Tn THE LaST *ORf) fiF "25"S Ai^n 



PRTBASE 
ANY), 



01601000 
01602000 

■0 1^0 3 000 



01604000 
01605000 
0^606000 



SPRINT FROM THAT WORD DOWN TO THE BASE OF ISTACK , 

% FOR FORKED STACKS AND STACKS BELU^i THE FENCE WE ELIMINATE 

XSTACK AT THE TOP/ OBTAIN A iflWfrR TUs *NU rcutoP UQw,v Tn Bfis. 



016Q700C 
016G8000 
Q1QC J90 00. 



BEGINXALL CASES OF NON-BEDDEU STACKS 

IF NORMAL OR FYFSTACK THFN X __ _ 



% % % 



01610000 
01611000 
01612000 



BEGIN 



WRlTE(P[DbL]» ITEM, OCTAL (TOS), 

OCTAL ( H THAI M TOS) iM)CT«L.t l.QHAl E ( T l)o ) ) 



01613000 
01614000 
01615000 



TOSs»TGS-U % PT AT 33"S ' OH- 25"5 



end; 



IF CONTROL A 
FOR T0S:=127 



01616000 
01617000 
Q 16 1 8 QQQ 



NO BUS = 64 THEN *lN7EHRljPT STACK 
STE.P-1 UNTIL ACTUALPRTHASE DO 



01619000 
01620000 
Q16<1QQQ 



WRI TEC LINE [ *}, INT STACK » OCTAL (TOS)* 

OCTAL(HIHALFCTOS))#0CTAL(LOHALF(T0S))); 

MBVE(XNAMa[XWAMECTOS3.CF3>LINEtS3^XNAMECTOS3.FF» 



*THE 



WRITECP 

endjxtos=act 

FOLLOWING APPLIE 



[DULJ*8>LIhE[*J ); 
UALPRTBASE-1 AT LOOP XiT 
S TO DTHE STACK AT muO 



01622000 
01623000 
01624000 



ANU ISTACK. g) N.S. STACKS 



01625000 

01626000 

.Q 1 6270 . 00 . 



SKIPEEEI 

IF OPERANOCT 
- IF ffVs"FFFF 



0S»V) THENXGET HID 
w A w FFEF w tH2&l23.3 Y 



OF "25 H S OR "33"S 

AN D CONTROL ) __ 



01628000 
01629000 
1630000 



OR (CV="[[£t 
OR (V*0 AND 
THEN WHIL E C 



"&"[ £CL"U :25!233) AND NORMAL) 

JUSTB£UOWTriEFEi>CE) 

FEKAND(TOS-l.R) AND R>v 00 TCSlsTOS-i; 



01631000 

01632000 
01633000 



IF CONTROL THEN IF QPERAND(T0S-2,R) THEN 

IF R»V THEN 

BEGIN ; 



FOR I*= 
WRITECP 



TUS,T0S-1 UO 

LDBLJf ITEM,GCTAL(I),UCTALCHlhALF CI))/ 

CCTA L C L OHrt L Ff I ))»" *UJ 



01634000 

01635000 

.01 6 36000 



TOSlsTO 
GO SKIP 



s-2; 
fee; 



01637000 
01638000 

01O39Q00 



end; 



01640000 
01641000 
Q164200Q 



471 



52 
'j4 
!)6j 

67,' 



>r 



10 

11 

12 
13 
14 
15 



16 

17 
IB 



19 
20 
21 



22 
23 
24 



25 
26 
27 
28 
29 



31 
32 



34 
35 
36 



37 

; 38 

39 
40 
41 



42 



16 
47 
18 



49 
i SO 



52 

: S3 



54 



55 

I 56 



%LtAVE TOS POINTING AT THE LAST 
XFINISH OFF N,S, STACKS NF.XT 
TF NHRMAI THEM 



WfjRU OF "?.b»S> Oh "33"S 



BEGIN 



fcRITECPEDRL.]* ITEM* OCT Al< TOS )> OCT ALC H I HALF C TQS ) ), 
OCTALCLOHALF(TOS) 



4- 



-X 



if tins 



tus:stus-i; 

It- FALSE THEN 
.EM THEN 



* CM1T ThIS CARD FDR LESS STACKiNS) 



IF PRUNLNK(TQS*BOS#lK) 

THEN TQS«*W; 
FNQtKlIF GFTTTMft NFH TilS 



^FINALLY FINISH OFF C.S, STACKS 

IF CONTROL THEN IF FORKED THEN 
QFTRETTEHTOSCTOSrOKLTAig JS'iMC * = 1 « BLS* TO a ,) i 



END* OF NON- 
ELSE 
RFfilN 



BEDDED STUFF 



WRITE(PCDBL]*S*0CTALCVJ = (3TAXCIUX],CF-1 )), 
OCTALCHIHALF(V))* 



OCTALCV-2)* 

CCTAL<RI*HIHALF(V*2)),. 
CCTAl.fH|g LUHALFCV"2))i. 



T0S:=T0S+4/ 

IF QCTAL C R« C24S^1 ) = "M" And CONTROLDLSC C V- 1 > V ) THEN 
IF- WlTHf Kf ML PROG >MAxMCPhUfi . V : =\/ . f. T . ^E C, . APR ) JJjfJil 



BEGIN 

WRITE(LlNE[*3*C*"CUMPLE"' t, X 
_ Q c T A i. t SF G ) « S£ 6 . OX T ft L t APR 



SLEE"* f 'P AT "# 
nfifH.[3<U?3.)l 



ixA 



MOVECNAMSC^aMeCSlGJ .uF3» LI NEC 7 J' 
NA^EtSEG] ,FF); 

^R I TE CPL 0R L]M ^>L l NtL*3 ); 



END 
ELSE 



WRITF(P); 



e nd; 



IF BpS*Q THEN BOS:s*AXCO»TOo*(IF NORMAL ThE|\ 

HAXSTAC«SUfc.-l ELSE 128)) ELSE 
IF BOS >TOS THEN BUS !sMAXt 0> TOS-C IF NORMAL THEN 



MAXSTACrtSUE-1 ELSE i}>; 
IF TOS-BOSSMAXSTACKSIZE THEN 80S UMAXC Q» TOS-MAXSTACKSlZE-1 ); 
nUMPlT»X , 



IF MYSTACKAOK >0 AND MYS T ACKbl ZE*0 

IF NOT MYSTACKOUMPEO THEN 

IF MYSTACKADR<TOS THEN 



THEN 



if mystackadr >bos then 
mystackdumpedjsTrue; 

FOR ItaTQS STFP V UNTIL BOS DO 



BEGIN 

HRlTECPCUBLJf ITEM^UCTALU )> 
CCTAI„CHi=HlHALFCI ) )/ 



CCTAL(L:sLOH»LF(I))," 

proi»-i; 



)i 



foundi»false; 

l»=l.cf; 

jle controlofscf t«x) 



AND X.CF GTR AND 



X.FF GTR 
BEGIN 
AGAINI 



BOS AND X.FF LSS TOS AND I NEQ IY THEN 



643000 
644000 



646000 
647000 

oasooo 



648500 
648600 
049000 



650000 

6bl000 
652000 



6b300Q 
6b4000 

6b50QQ 



659000 
660000 
661000 



6 02000 
663000 
664QQQ 



665000 
666000 
6 67Q QQ 



668000 
669000 

6 fOQQ0 



671000 
672000 
6/3uQ0 



6/4000 
6/5000 



677000 
6/8000 
679000 



680000 
660500 
68 1000 



681500 
682000 
68390Q 



683910 

683920 
663930 



683940 

683950 
684Q QQ 



665000 
686000 
687000 



6 88000 
689000 
689100 



690000 
691000 
692000 



692100 
693000 
693500 



M 



51 

ill 



h 



I 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 
44 
45 
46 
47 
48 
49 



50 
51 
52 
53 
54 
55 
56 



IF f Ci;MU : = 

rtITHIN(MCPRuG,MAXMCPRGG#L.CF>SEG*ADR) AND 
LBiill THLI\ , 



BEGIN 

KSRITE(LINEC 
AC TA 



*J»C>"MCP 3E">' 1 GMENT %"AT •»# 

I, C SEu Ji.Sk, G»n CT Al,( A DR)i A nft* H .r UL L U U 



V C V L C l\ A rt ^ C 'V A H t t. J EG J . CF J*LI\t 
NAMELotG J . FK ); 



in 



FNO 



ELSE 

IF FCUNDIsmilTHI 
. HRlTFtL lNE 



N(aU'IERBtOcK,0*L. 



CF*SEG*AOR) THEN 
ER H_»t"QCK ", 



ELSl 
H F GTN 



' » C T A L 
IF NCJHMAL 



( L ) * l > h . L 3 4 : 2 3 ) 

f MEN 



IF FG-UNDS art I THIN CINTSP, EXTRA INT S»*MAX#L* 

SEG*ADH) THEM 
BEGIN 



WRITE.(LINEC 
OCFALC 

K .: Vt ( I NAMS t 



* J*C*"INTRlN"#"i>* 
StG)»6EG#GCTAL(Ali 
fNAMt^gFQJ .PFJH I 



C. I\0'S"MBER "* 
K),ADR.H»C 34 J2J ); 

N F i73f 



INAMEtSEGJ.FF); 



END 
ELSE 



*HILE (HKCll 
IF KClNUls* 

L * S h G * A 



sPKU + nsr'hUwt, AiML NCT 
IThII\CPRCGS[PRG>*]>PR 
U±U , ThEN , — 



found do 

UGSLPR0*255J# 



WRITEtLlNEC*3#e 
OCTAL(SEG)»SEG* 
FNQj 



#"SEGMEN ,, #"T NUMB 
QCTALC ADRJ»AUR>h, 



134:23); 



END ELSE 

IF NCTCFQUND OR 
I F CFEKAN U UyX 



RECYCLING) AND i\ 

j anu x . n;n = i a 



ORMAL THEN 



THEN % POS 
IF FrUNQia 



SIBLE CObE (OVERLAID) 

(CYSaX.FF ) GTR BCS AN 

Y LS S I AN D : 



D 



(SEGJsX. CF) Net «i\D 
SEG LE<* 1C23 AND 
CUNThUuDFJCf Y>R ) ,) 



THEN 
BEGIN 

tyj?y ; 



IF HGOKORUNHOO 
IF TCS GTR A 
BE GI N 1 — ______ 



KING ThEN 

M> Tub GTR LGCIRCw TnEN 



RECYCLING'sTRUE) 

go again; 



end; 



WRITE(LINE[*]# 

UCTALCSE 

fnd; 



C>"StUMEN%"l NUM 
G)*StG f QCTALCADR5 



b"# H tFU*) "» 
■R.CK)»AUR»XtC10»2Jj; 



IF FOUND THEN 
WRITE(PtDBL]*10#LINEt*3); 



end; 



EPRDWTt 
END DUMP 
PRflCFO 



ING A stack; 

U&F nUMPSFACESTAChClNXfl)? 



VALUE INX; 

BEGIN 

FORMAT 



REAL INXVIJ 
SSnOf.flj«TmS STACK IS A SPACE_TACK. fT LtNKS « » 



6V400G 
695000 
____J_ 0_. 



697000 
6*8000 
699000 



t \j 
7U10GC 
7 2000 



7U3000 
704000 
705QQO 



706000 
707000 
7t /7 2Q0 



708000 
708100 

7U9QQQ 



'7X0000 
711000 
1 12000 



713000 
714000 
715000 



717000 
716000 
7-1 900Q 



720000 
721000 

r??ooo 



722500 
723000 
724000 



725000 
726000 
727000 



728000 
729000 
7JQCJ0U 



731000 
731100 
73 12QQ 



731500 
731510 
7 .i 1520 



731530 
731540 

7 nsso 



732000 
733000 
7 3.UOO 



7 34000 
735000 
7360Q0 



737000 
73800C 
Z39QQQ 



740000 
741000 
742000 



"I 

IK 



>r 



1 

2 
3 
4 
5 
6 
7 

e 

9 
10 



> » 

12 
13 

I « 
IS 
16 

I » 
18 

19 
| 20 

21 

Z2 
) 23 

24 

26 
I 26 

27 

28 
I 29 

)0 

31 ~ 

I 32 
33 
34 
35 
36 

37 ~ 
38 
39 
40 
41 
42 
•3 



45 
46 
47 
(8 



49 
50 



JO 

JO 

3» 

X) 



61 
52 
53 
54 



55 
56 



"DIRECTLY 

nextitem; 

WRTTF (PEnRLJ t.SSHuS; , 



TL THL Kt-XT STACK PRINTED,"); 



OUMPSTACK(INX); 
STAXCI«eO]«=SbTACK; 
FN-D DUMP SPAEFSTACK t 



INTEGER PROCEDURE $PREAOCAl*F,C )i 

VALUE AT* 
INTEGFR AT.F^r; 



BEGIN 

SPREAD* "CHR3C ^[ AT, ROW. AT «CQl3» 0*3); 
CU»CFl»KHRSCM rAT. RQw*AT.CnLJ*3iS)-).CFg 



FS=F,Ff ; 

end spread; 

PROCEDURE PUMPRi3GHAM54- 



BEGIN 

INTEGER MlX*TYP*PRTH>PRrF*H*F*C*FP0*S0*AlT*SJ 
TNTFGER 1„; BQQLFAN .SPEC; , « 



INTEGER A; 
REAL JAROO; 
RFAl STARS»JARfl? 



dnm fan v.»iik> 



FORMAT HDCA5*" * M * A6*2(X1* A5 )* X2* A'l* Xt* *A6 )* 

HiCX8*"PR0GRAM»"*X8>"/»*X7» w * MIX s M *l2)* 
INTEGFR Pcm .t.7.HU.n *hP; 



REAL SEGS*SGM: 
REAL SEG*ACR; 
ARRAY LSTULO:.] *- 



FORMAT SEGH.<X^#"PRESENT PROGRAM SEGMENTS & INTR IMSICS"// 

"SEGMENT SUE AT THRU TYP INT # "//)* 
SFftM FIV T f Y ^ . a f A Zl . X ) L» X 1 . A S . V p . a S * X g * A ? ■ V /■ . A 3 V . 



lNTSEG(X8*A4*xl*Al*Ab,x2*A5*x2*A2*A4*A33* 
PDCA5*" * %A6*Xl*2l*5*Al)*"* R+"»A^% + ' 
ST A RS; a "»**»"; frT AflS . U > » l a 1 8 S ST A RS . L 24 8 j t fl J-j 



A4). 



IF PDATADESCC JAR'JARO) THEN 

jaroj*JaRo,cf; 

IF fPRTQKt»Pr>ATAnr SrrPRT*PRTO)) I HLfr 



PRTH*«SpREAD(PRT,pflTF#PRTO); 

IF PRTO>0 AND (SOCK:*PDatAOESC (SU'TYP J 
FOR MIX ? = 1 STEP 1 UiMT f I, M1XWAX IUJ 



AND TYP! = 1YP.C(- >Q) THEN 



IF ONEMIx*0 OR ONEMlX a MIx THEN 
IF (RJ*TYP +MIX) GTR AnO UPERAnDCR'R) 
R*0 AND fRl»R.Mpi 61Wft3 ANO 



01 7 43000 
01744000 
Ql Mb UQC 
01746000 
01747000 
0] 74rtnnn 



01MV000 
OlfbOOOQ 



01/b2o00 
Ol7b3000 
01 7 5 40 00 



0173'JOOO 
Ql7b&000 
Ql7 b /0 00 



oi7baooo 

01759000 
1760000 



01761000 
Cl7o2000 
0176 3Q0Q 



G17G4000 

01765000 

fii 766nnn 



C1767000 
C17C8CCC 
CW» » QQCO 



01770000 
017710CO 
0177 2000 



017/2100 
01773000 
fi 1 7 7 A Q 



01775000 
01776000 
017770 00 



1 7 7 b 
01779000 
Q1 780000 



AND BOOlEAnCR.CI J1J ) A\U 



CR=Q OR R=l OR H=4 OR R*5 GR H=16 ijH R=J2) ThEN 
IF CHJOKCHuNHOQKING :aCR*0 OR R»l QR RsS)) art nut 
IF PDATADESCCPRTn+MIX,R) THcN 



01780500 
01781000 
01782000 



THEN 



BEGIN 

next-page* 

HRITE(LINFf],Hl*MlX); 



01783000 
017 dJ 100 

oi 7a<*t)oo 



IF JAROXO AND DESCRIPTORC JAHO+MIX* JAHOO,F ) 

AND UAROO.CF>0 
BEGIN 



AND K.C39«3]«5 
THEN 



01765000 
01766000 
01767000 



MOVG CMC £ A 1 * JAROO) .ROW* A ,CQL J * 1, 

LINEC23»1*0*7); 
MQVC(MCCAi»A + n.R0H*A.C0L3*l* 



01788000 
01769000 
017*000 



END 
ELSE 



LlNE[33*l*0*7)>" 



01791000 
01792000 
01793000 



01794000 
01795000 
01796000 



BEGIN 

M0V.C-(STAR5M»UN£[2JM#C*7)/ 
MQVCt STARS* 1* LINK [ 33* l.#0»7)j 



01797000 
01738000 
01799000 






1 48 

■Ifi 

I" 1 



f]| 



2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 



49 
50 



51 
52 
53 
54 



55 
56 



end; 

WRITEC 
NEXT IT 



PCDPUMS/LINt C*3 H 

e h; . _ 



WRITEC 

OC 

Q£ 



p*nn* 

TAL<P 
TAL CP 



KT)» 
RTH),OCTALtPRTF)jOCTALCPKTO),» ", 



OCTALCPKTG+HIX)* 

QCTAI (SPREAfiCPRTO + MlX, FfR )).QcrAU(F UAS UA U jSJLt 



IF 
-DC 



F = 

"PRTC 
TAL(R 



THEN ° " 
M I " * " X p * 
+ 3)i 



ELSE ♦♦*"# 
]# "#"CF»R ". 



OC 
IF 



TALCh 

OCTA 

" R+' jy 



;sSPREAD 
L(h.l30S 

,rv"PR 



Ctt+3>F,FPH)J, 
6])="30" THEN 



uc1 alcf)#octalckpb)# 
" " else "*"# 



QC 
QC 

_1£ 



TAL(R 
TALCH 

O CTA . 



+ 4)* 

»»SPREAD 
t-fn.r3n; 



(R+4#F,SD))#0CTALl 
fa3 1«*'an» THFh " « 



F),OCTALCSO)# 
FLSF "*"* 



4*"R+4# S ,, /"EGMLHT'S" D J C T I " » "CN AR Y "* 

OCTALCR+6)* 

OCTAL(H;s&PHE< 



IF 
-QC 



"R + 4* 

TAL(R< 

T AL (H i s SPRE A D (H + 6 »F>A1 T ? 3 » O CT fli (F Jj O CTA L CAIT ) * 



BCCL 
"R + 6# 
TAL(R 



EANCH.C3 

A"»"IT 
+ 7 )* 



0*13) THt.M " 



EL^E «*»> 



OC 
IP 



TmLCH 
H,[3 

" R + / , 



:*SPREAU 
0:2J=3 A 
-L"»"AhT 



(H+7#F ,C )),OCTAL(f 

NU F <h AND C = THE 
MS"*"CH F( ,1 R">" rth 



)r CJCTALCC)/ 

N " " ELSE "*"> 

ICH W » W h.SFF "t 



OC 



"WAS FA"> W LSE 

TALCR 
TALCH 



|gSP RF AD( rt+fl*F ,r. ) ) tnr. T A t, (F ) »QC T ALCC ) t 



n •• 



2, 
JOLC 



"R + 10 

TA1 LB 



+ 9)* 



JCw 



OCTAL(htsSPREA 
IF H,C32S163=0 AND H.C3 
9,-R+ll* ",»LITE8A W >«L F UH 



D(R+9#F,C))#0C 

OU>(J AND Fso 



TALCF )#GCTAL<C)# 
THEN " » E.LSE "* ,, # 

» W LAST C H >"[lHMUMN 



ac 

OC 



"GATE 
TAL(R 
TALCH 



OR"* 
+ 105* 



IF 0CTAL(H,C30!6 
THEN " " ELSE I 

Sx 



3 )s"5 

F cs: 

" Rt] 2 



0" AND 
sQ)*0 T 
f ";"FF 



PRUGR"'"Ai«' REL"*"EASE " » 
DCR-*-lu>a/C))»QCTALCS)»JCTAL(C)» 



IF CON 
AND H, 
NEXTIT 



TRCLD 
FF GT 

em; 



5 (iTR AND R* 
HEN "*" ELSE « 
B», H OTTQrt 



C AND 
* W 0F 



R-l GTR(SJsS-l) 
THF»j" STACK"); 



ESC<R + 8»H) Al\U CLUCIRCWJsh 
R 1C24 ThEN tLSE L0C1R.CW» B 



.CF) GTR 1024 

-i; 



IF INTCDEtMX'OJ LSS THEN 
BEGIN 
WWTTFfPtSfTiHli __ 



WHILE (A 
IF A LSS 

BEGIN 



:-Ii\TCDECMlX»RP: = WP+i J ) i\EQ 
THEN 



uu 



WRITEC H NEC *3»lNTSEa#0CTALCA.FF- A 

OCTALCA # CF)#OCTALCA,Ff )#QCT 

QCTAL(LI.»A.[eU03))J 

IF L LE*J INTMAX THEN 



»cF+n# 

ALC13)# 



IF 

MO 
WR 



L LE*J INTMAX THEN 
VECIh«MSClNAMELL3.CF3»LlNLt5]#lNAMECL].FF>; 
nE(P*8jLlNF.C»J)J 



end; 



end; 



PROGS tPftCWSj*Q» 255 il»PCfaU»-i; 



600000 

ooiooo 
Bcanoo. 



603000 
604000 

aosoQO 



8C600G 

aufooo 
Boaooo 



809000 
810000 
81 1000 



812000 
813000 
8 1 40 00 



815000 
816000 
817000 



818000 
819000 

aao ooo 



821000 
822000 
H23000 



824000 
825000 
826 00 



627000 
828000 
82 90 Q0 



830000 
631000 
63 2000 



833000 
834000 
635000 



836000 
637000 
836000 



839000 
840000 
841000 



641100 
841110 

642000 



842100 
842120 
842140 



842160 
642180 
6422 Q Q 



842220 
842240 
842260 



842280 

842300 
642320 



842340 
842360 
64 3000 



'■ 

4t| 

47ll 

411 

<tb 

Ml 

SI 

52 

S3 

bA 

hi 

!,fi 

154 



>T 



2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 



13 

\ » 
15 

16 

I " 

18 

19 ~ 
| 20 

21 

n 

) 23 

24 
25 

I * 
27 
28 

I » 
30 

31 

| 32 

33 

34 

I « 
36 
37 ~ 

I M 

39 

40 
I 41 

42 

43 



45 
46 

> « 
48 

49 

I W 

51 

52 _, 
| 53 

54 

55 
I 56 



IF PDATADE5C(R + 4,SC i THEN 

IF 0PERAM3Ct>U:sS0.CF>SEbi>) 
BEGIN 



AND SEGS, C 1 : 3? 3 =G THEN 



IF INTC0EtMIX#0j LSS THEN ELSE 
WRITE(P#SEGH); 
.FOR SEGi=l STEP 1 UNTIL SfcCS DO 



018^4000 
01845000 

Qifl46nnn 



IF UPERANDCSD+SEG/SGM) AND 

C AUR:=SGM,f- F3MU23 THEN 
B E G I N 



0l8<*6100 
01847000 
01846000 



Sl2J = 
IF C0PERAND(A0«-l»Si2J AND 
■Sj/.CFsSEiU LB 



01049000 
01850000 
OIH^IQQQ 



C0PERANC(ADR-1»SU) *KU 
0PERANC(ADR-2*H) AND 
C(H t [ 3; ft]8 7 A ND H . [9 « 6] s C) uR C H. . I 3 1 q J . 



01852000 
01653000 

nifi^ono 



siz, t-6*ioi*sGM,cF ) Then' 

SI2,FF ELSE 0; 
J-f- B OOLE A N* SflM . UU4 }} 



; 1, . A iv C n , [9?6 3 N E Q >? A N D 



Ol&b6000 
01857000 

o ia sao o o 



then 



BEGIN 



01859000 
01860000 
O1661Q00 



Lt=S6M.U ; 



FOR 18*0 STEP 1 UNTIL IMSPmAX 
IF INTSPt 1 3 . E8* 10 J*L THEN 

BEG I N 



UO 



01862000 
018G3000 

01 fin 4 00 



U L s 1 / T H E * S I £ s = m i 

SPEC is I RUEi 

I S sjiNTaPM AX+.gi 



01865000 
01866000 
01867000 



end; 

HRi TE( LI NEt*J»SE-GMENT# OCTAL (SECi)» 
TF SI7 = Q THEM STARS FiSF OCTALCSm 



01867100 
01608000 
01809 Q Q 



0CTAL(MUR3# If 5IZ=0 THEN 
QCTaLC AUR+SlZ-l )> \Y SPEC 
nGTAL(L) U 



01870000 
01871000 
01871 100 



STARS ELSE 
THEN 7 ELSE 1 



01872000 
01873000 
0187 31,00. 



END 



IF L LEO INTMAX THEN 01874000 

M0Ve(INAMSMNAMEtL3.CFJ#LlNEt5]*INAMECLl.FF); 01875000 
IHRITrCP*B<LlNr.T.»3.,r 01676000 



ELSE 
RFGIN 



IF CPCOL*«PCOl+ 1 3*255 THEN 
BEGIN 

PR0gS[PHOwS»2553»»25<H 



0187700 
01U780O0 
Q1879QQQ 



pruws:sPRqws+i; 

PCUL«=0> 



01880000 
01881000 
01882000 



end; 



01883000 
01864000 
0188500Q 



PROGS[PRUhS#HCQU*« ■ 01886000 

AOR& 01887000 

(IF SU«0 THE N ELSE AQR + SI.Z- l ) [ 18 « 33* 15 J& 01888000 



SE^[8:3a« io]; 



ihDi 



END 



IF <PROGStPROWS#2553*sPCOL)JO THEN 
BEGIN 

FOR RntsQ STFP 1 IINTH PRHwS HIT 



01889000 
01890000 
016V100Q 



sequenced ph QGstrtu#*]*pflQGS[Ru»255])'; 
segsjsPrqws+i; 

FTR Il»fl STEP 1 UNTIL PROdS DG 



01892000 
01893000 
01694000 



GEGIN 

SEGS :aSEGS+PROGSt 1*255); 
LSTDCI3I80; 



01895000 
018V6000 
01697000 



01898000 
01899000 
0190000Q 



it 



•H 



a 



>r 



9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 
20 
21 
22 



23 
24 
25 
26 



27 
28 



29 

30 



31 
32 
33 
34 
35 
36 



37 
38 



39 

4C 
41 
♦2 



45 
46 
47 
48 



49 
50 



51 
52 
53 
54 



55 
56 



end; 
fcr 



S E G J 

U 



1 STEP 1 UNTIL SfGS 00 



ro»*o; 

if pr0ws>0 then 

FOR Iiai STEP 1 



Uhl TT t . PRU WS Df) 



IF LST0[R03*255 OH Q 

d.STD[lJ<255 AND 

PRO S SI I»UST D r i 3 3« CF<PHQG SCROLL S TO I R Q33i CF) a 



THEN 



ro»*i; 

wRITE(P»S£GM£NT» 



QCTAL(CS>GMI«PROGiCRO*LSTOtRa]J).C8UO])»0 
IF SGM.FFaO THEN STARS ELSE 

UCTAUStiM.FF-SfiM.CF + 13« 



UCTAL(SGM.CF)* IF SGM,FF»0 THE 
3TARS EuSf; OCTALCSGM.FF)*!); 



N 



END* 



END. 



end; 



IF <H»*MIXSTK[MIXJ 

STAXC03»*(RM) & 

ELSE B EGIN MIXSTKTM 



)«0 THEN BEGIN 

S CTF 4 it 7*4*11] END 
1x3 8=0 ; . 



IF H=SSTACKINX 

IF STAXCH],FF=0 THE 

UUMPSTACK(H); 



THEN DUMPSPACtif ACKCh^h); 
h STAxCH].FF»sbi END; 



hookorunhooktng;»false; 
end; 

IF FRTDK AND SQOK THEN 



FOR MIX : = l STEP 1 

if h:=mixst«[mix]x 

end dumping norm 



UNTIL MIXMAx 00 

THEN 3TAX[H3, [7*13**0; 

AL, STATE PROGRAM TNFQ/ 



PROCEDURE DUMPCO 
BEGIN 
FORMAT H(X8r 



NTRULSTACKS; 

"CO NTR OL S TA TF ST ACKS" ) * 



REAL V 
LABEL 

INTES E 



>R>A»I 

LOW, MO 
R INX' 



NE»DUMPlT»d01 / 

KJ AURAY *ICP&TCO:43; 



NEXTPA 
WRITEC 
STAXtfl 



ge; 

PCDBL3 
3**127 



*h); 

im ct f ; 



NONFi 



dumpstackco); 
nextpage; 

IF QPFRAMHwCRKfcRS TACK'K? AinU R>PHTU a N D VFEN CE> R THEN 



FOR I*»fl STEP I UNTIL 2 DO BEGIN 
MCPSTCI] JsCR+127) 4 R CTF 4 lr5l47UJ* 
IF 18(1 THFN nrPSTrQ1.f3limil 



S THE 



R*=Rti28 END; 

i*=i-i; 

ABOVE LnCATFS HPRKFRSTACK AND TUG STAHKIJ STACKS FACh 



PRESUMED TO BE 128 

IF PDATADESC 

MCPSTlliaUl 



WORDS LONG AND CONTIGUOUS, 

(ISTACKrR) AND (V »*fi. C 8 J 103 3>0 AND (RlaR.CF)>Q THEN 
H8iCR»V-1i4R CTF & \tJH7l\li a 



% ISTA 

% NOW 
FOR IN 



CK 

DUMP Q 
X t - 1 _& 



UT The BEDDED STACKS 
TEP 1 UNTIL BEDSTK DJ 



IF NOT BOOLtANt-CRt«STAX[INX3),C7li3) TH£N 
BEGIN RI*R.CFf 
IF (KlalNXl * SSTACWINX THEN 



901000 
902000 
qi/ jQ O Q. 



904000 
905000 
906000 



907000 
9UBOO0 

9090 0Q 



910000 
VI 1000 
^12000 



9U000 
914000 
915000 



916000 
916100 
917Q00 



916000 
919000 

9 2 QU Q 



921000 
922000 
V23O00 



924000 
92500Q 
9* 60 00 



926100 
927000 

9*8000 



929000 
930000 
931000 



932000 
933000 
934nnn 



935000 
935100 
9 36000 



937000 
938000 
939000 



940000 
941000 
952Q00 



952100 
952123 
952140 



952150 
952160 
952200 



953000 

955000 
VSftOQQ 



957000 
958000 
939QQU 



960000 
961000 
963000 



1st 
bll 
:il 

;i3 
'■4 

"[ 

157) 



n 

2 
3 

4 
5 



13 



16 

, 17 

18 

19 

, 20 
21 



24 
25 



I 26 

27 

28 
I 29 

30 

31 ~ 
l 32 

33 



56 

37 " 



I 38 



42 

»3 

I M 

45 

46 

I « 

48 



49 
1 50 



52 
I 53 



55 
\ 56 



BEGIN 

DUMPSPACESTACK(K*K)* 
END? . 



RtsSTAXCO] ,CK4g; 



IF R>PRT0 AND VFENCE>H THEN 
BEGIN 

FOR A:«Q STFP 1 UNTIL I DO 



01*03000 
U 1 V 6 4 



IF (V;=MCPoTtAJ ) ♦ CF>« AND K>(V«=V.KI-) THEN 
BEGIN STAXCK],FF»sV# 

MCPbTrA]:=o; gq rn oumpit; 



01*66000 

01*07000 
Qi*6finnn 



end; 

V!»PRTO' 



01*69000 

019^0000 



end; 



go to bqt; 



IF STAXCK].KF - CVJ=0) THEN 
BOT I STAXCK],FF**IF RC*MSCWSl.ARChC K*2> V » R ) 

nuMPiT s nuMPSTACK(K); __^_ 



01972000 

01973000 
01*74000 



THEN CR-1) ELSE 0; 



end; 

* move unbedded mcp stacks to mch list 

TF SSTArKTNXsn THEN SSPACrSTArK NflT . nUMPF.n ■ 
IF OPERANDf SPACESTACK,V J AND V.tlt.3£]sO THEN 
IF (V.I.BV.CF) GTR PRTO AND V LS3 tfFENCE ThEN 
MCPST C It=l+1 H*(V + 9<n & V C'TF A U^^Ulr 



01*75000 
01*76000 
01*7 7000 



01978000 
01979000 
Ql9fl0nnn 



FOR A:=0 STEP 1 UNTIL I 00 

IF MCPSTCAlXG THEN ST AX CM^XSTk J smaXSTK+I i ?'» "MCPST [ A3 ; 

FOR INX1»(RFRSTK+1 ) STEP 1 UNTIL MAXSTK UP __ 



01*81000 
01*82000 

01*83000 



BEGIN 

DUMPSTACKCINX); 
-WUU , — ; 



01984000 
01985000 
Qi*H6nnn 



IF HOT MYSTACKDUMPED THEN 

IF MYSTACKAOR >0 THEN 

RFfilN % SEE0JU4 nijrtP Q£ iisFK 



01*87000 
01*88000 
01* 8 *00 



STAXCO] JsMYsTACKADR & 

MAXC0#MYSTACKAUK+1- 
fTF MYSTA(.K.4r*l-*0 Tht.H 



SFYFrTEf. "STACK" ARFA 



01989500 
01*89510 
01*8*520 



1[4»47«U; 
DUMPSTACK(O) J 
MVSTArKflUMPFnfTHHF : 



MYSTM<:KSf^F FLSF, f>QOnCTF ft 



Ol*ti*53Q 
01*8*540 
01*8*'i50 



end; 
end dumping control state stack*; 

REAL VFnRK>FnRKUK»r , REVLNK»Fl,KKPMt]jFgPARAMf 



01*69560 
01989570 
01*89^75 



PROCEDURE MEMORYMAP; 
BEGIN 
TNTF6FR J ARO* HUH . SQO , r TO ; 



01*89580 
01**0000 

oiwinno 



INTEGER MIX*I*A*STAK*CHUNKS; 

REAL t»RTX#SQX#S*CTX» JAHX#UVXJ 

Rnm EAlSI .JARnKi»mrKi.SanK.CTQK>RLlhNTN(i»ABriVF.IUCflHE.SUXr'fl' 



01*92000 
019*3000 
o?*9Annn 



FORMAT B ADPRT ( X 1 * 12' X 38* A 1 / ) * 

SKIP</)* 
BT S KIP C//J * 



01995000 
01*96000 
01^*70 



TRISK1PC///)* 

MUSE(XUI2*X9*A1*X20*V2>X0>A1*X4 * *4( Xl * A 1 * XI ) ) * 

MAPCX41 ."CtlRF aSS^GnMlNT WAP"// ), 



01*98000 
01999000 
Qgouonon 



LEGER(//X8*"LEGERJ"/ 
Xl4f"X * JOB IS BELOfl THE FENCE"/* 
X14*"R • JOB RUNNING WITH THIS CHUNK"/* 



OgOOlOOO 
02002000 
02UU3000 



02003100 
02004000 
02005000 



X14*"P a CHUNK POSSESSED RY A JUB BUT JOB NOT RUNNING"/* 02006000 
X14*"A a CHUNK ASSIGNED T(j A JOB BUT NOT POSSESSED"/* 02007000 
X14,"» s AN ARRAY HAS BEEN CLU B8ERED CPR U J AH* U V* SO* CT )"/* 02008000 



X14*"I » * OF JOBS READY TO RUN USING THIS CHUNK' 

H (CTXM.C36»63)»V* 
Xl4*"J » j OF JOBS ASSIQNEO TO THIS CHUNK"* 



02009000 
02009100 
02010000 



2 
3 
4 
5 
6 
7 

a 

9 

10 
11 
12 



13 
14 

IS 
16 



17 
18 
19 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43," 

44 

45 

46 

47 

«8 



50 
51 
52 
53 
54 



55 

56 



T0THDYCX20# H I"»X2/»*24(X1M2})» 
TQTASGCx2 0t'M"*X2'U 24 (XI «!?)). 



_lf_ 



HDR( M MIX"'X&/'!J0B NaME%X8'"USER h 'X3 ; » STATUS"#X2# 

w BEL0H ,, #X2F24<A2#Xi)>.j 
MQMOKCPRTjPRTOI ANin VFFNtE NL.J Q AM, VFENCfr . f 38 1 10 lap THFN 



02U1010C 

02011000 
02 013000 



02013000 

02014000 
Q?0150QQ 



BEGIN 



NEXTlTEMi 



CTQKt*M0M0K(CT#CT0); 
WRITECP'MAP); 

sai.TnamTBijFi 



02O16000 
0iiUl7000 
0201H000 



02019000 
02020000 
20 20 10 



UISPLAY(FENCE»FAL$E); 
OISPLAY(PRT#FALSE); 
O ISPL AYtJAH^FAirSF ) } 



02O20b00 
02020510 
Q2O2O520 



DlSPLAYCUV»FALt>E); 

OISPLAY(CT»FALi>E); 
SfiLTnfilaFAl &£l 



02020530 
02O2O5/»0 
02020650 



WRITE 
WRITE 



R)* 

O^fDK MIX*=VFENC 
IF CTUK ANQ UPEKANI.UCTU + 



(P'LEGE 
(PfTQTFv 



E STEP 1024 UNTIL 31744 DO 

(Hiltl)iCU) THEN 



02020700 
02021000 
02022000 



CTX.C36 

WRITE(P»T8TA 

IF CTOK 



I6J ELSE 100); 
SG'FOR MIXI"VFENC 
AND OPERANncCTQ* 



E STEP 1024 UNTIL 31744 DO 
<A*-«ft + U>CTX) THEN 



02023000 
02024000 

-03025000 



CTX.C42 

WRITECP'HDRf 

— IF (Si 



16 J ELSE 100); *R 
FQH MU ! =\/FENCt. S 
sQLTa L (MlX) . [lfc» l 



ITECP»SKIPJi 
TEP 1024 UNTIL 
gU.Uic'i'ft,. Nt« 



31/44 UU 
U THEN 



020<i6000 
02027000 



0- 



■ WRITE 
JARflx 



(S4 

(P'BISK 
HMQHQ K 



" " [ 3 6 t 4 2 J 6 3 ) 

ipj; 

t JAR. JflRO); 



ELSE S.C36«12J); 



02029000 
02030000 
Q2Q3 10Q0 



UVOK: 
sqok: 
STAR* 



=momokc 

sMOMOKC 

f " » " ; 



uv'uvo); 

SQ/SQO); 



CHUNKSl*IF C 

A, CI 

FQft M T X*«1 S 



PERANDCCHUNKMAX/A 
J42)»0 THEN MINC2 
IFF l UNTIL MIXMA 



02032000 
02033000 
02034000 



) AND A*0 ANU 
3#A) ELSE 23; 
X DP 



02035000 
02035100 
Q 203 600Q 



IF OPLRANDCPRTO+MIXfA) ANU An 
IF NOT MQM0K{PKT0+MIX*PHTX) T 
WRITECPFRAnPRT/MIXrSTAR 1 LLS 



THEN ELSE 

hEN 

£ 



02037000 
02038000 
Q203VQQQ 



BEGIN 



RUNNINGt*ABOVE»=FALSE; 

SQTnS«»SQOK AND OPERAND C SQQ + M T X , SQX ) AND SGiX NiLti 01 



02040000 
02041000 
Q2Q42000 



RUNNING 
1NC0RE: 



-UV& 



l=(S:sSQX.C18!oJ ) 
= N0T (ABOVE »=CVF F. 
Q VE AND S t i T UG AN 



«16 AND SQTCG; 

NCE LSS PRIX )) OR 

: 



CSaO OR 8*1 OR S«4 QR SaS OR S»16 OR S*32)); 
WRITE(LINEL*3*MUSE*MIX* 

IF TNCORE THEN w / w FLS E » w > ______ 



02044000 
02045000 
0^046000 



02046500 

02047000 

-02 04 8000 



IF 

IF 

-XE- 



SOTOG 
SQTOG 
ABnvi. 



THEN "I" E 
THEN S tLS 
TH F. N " " F 



LSL n A"» 
E " *"* 
LSE " * " r 



FOR ll»0 STEP 1 UNTIL CHUNKS 00 

IF ABOVE THEN 

IF 5QTQ6 TH EN . .■ 



02049000 
02050000 
02051000 



02052000 
02053000 
Q20j ? 4 00Q 



IF 

IF 

_lf_ 



I LE« 
I GEO 
ABQVE 



SQX, [30:6] 
SQX, C 36:6] 
ANU CTOK A 



THEN 
THEN 

ND 



02055000 
02056000 
O2O5700Q 



IF 
JUL 



OPER 
CTX.13 
RUNNIN 



ANQCCTO+I, 
0«6)«MlX T 
6 ThIN "H" 



CTX) THEN 
HEN 
% RUNNING 



02058000 
02059000 
02060000 



bd 
5 1 



!..6l I 



h 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



ELSE "H" 
E.LSE "A" 



i POSSESSED 

* ASSIGNLU 

% HbO CT C».J £L, 



It M 



ELSE 
ELSE " " 
E L S E "»» 



NOT 
ASSIGNED 

BAD ■ „S,&i,C*3 



■£L- 



LI.SL " " * 
IF JAWGK *NQ MOMi.lKf J AhU+H i X , JAH X ) A|^D INCQRF THfN 



btLUh FENCE 



BEGIN 



M0vCCMt(A!sJA«X),HOW»A,COL]#l* 

i , iNer n i»5t H*y) i 



mcvc(ml(a:=a+1).muw»a.col]^i* 

LINEU3*5*0*/); 



SM3- 



ELSE IF INCORE THEN havC(STAR^7,UINE.tlJ»4#0»ni 

IF UVOK AND M0M0K(UV0+MIX#UVX) THEN 

IF INCQHE TH E M 



MCvCCMtCA*aUV*3.RUw*A..CUL3*33» 
LINEC3J*0#0#/} ELSE 
ELSE MCVCCSTAR.7H, INFL J]rg/Q. i)t 



02061000 
02U6200C 
Q ?0o3 (;QQ. 



02064000 
02065000 

naQftftooo 



02067000 
02068000 
02069000 



02070000 
020/1000 

02U/?onn 



020/3000 
020/4000 
021)7 50 



020/6000 
020/7000 
020 78000 



020/9000 
02030000 

oa-uaiono 



19 

20 



22 
23 
24 
25 
26 



27 



writecp#1!j#linee*3); 
end loop; 



-&W&J 



END MEMORYMAP; 

STREAM PROCEDURE MQVDCS>D#« ) J 
BEGIN LABEL EXtXi - 



VALUE w; 



sn = s; Di : = c; 

W(8(IF SCs»«.« THEN 
SlreST" i; DItaUI-1, 



JUMP OUT 2 TO EXIT rO-Sl«CHR)j; 



02082000 
02084000 
02065000 



020d6000 
02086500 
Q?Uri6510 



02086524 
02086526 

020^6530 



28 
29 

30 



31 
32 
33 
34 
35 
38 



37 
38 
39 



exitsds;=chr; 
end mqvu; 
pbqceq.ubf oumpmcpinfo; 



BEGIN 

REAL R>A*N#L»TA,TS*MA»MS#LA*LS,RA*RS*PA>PS; 
DEFINF MAXMESSAtirs*lOO* J 



INTEGER TYP*S,Ci 
BOOLEAN TINUCK; 
BOOLEAN CQm&avF* 



FORMAT SECA3, s "^2( 0* XU * X24# "< ">Q* Xl ,Up» )' 
TPXICX8*«*8IT W #I2»" a "#I1*'*# 'SXgSJ* 

"■"•" S ".ttiS ".*A6Q; 



), 



TFCXft,."HIT "*I?»" 



02086540 
02066550 
Q20H70Q0 



02088000 
02089000 
02090000 



02091000 
020V2000 
0P0V3OOO 



02102000 
02103000 

Q21Q40QQ 



40 
41 
»2 



43 



46 

47 



49 

I 50 



ARRAY T8[0*1463; 

REAL UA#US#IA»Ib,FA*FS; 
FORMAT LUN(A3)* 



LQUEH0RCEL M *X2,"lQaUE-lNUEX'V X2# "DISk-ADDRESS"), 
BA0tQUENTRY(A2, M * BAD ENTRY IS W #2(Q#X1))» 
BADLlUEC** THE LQUE IS INCORRECT")* 



FLGUE(A2>X6»A3»X8>A1>A6)> 
NULLQUE( M *## NO ENTRIES IN THE LUUfc"" )' 
FTCAl,Xl.A2>X1,Al,X1/A3>Xl,A2,Xl,Al,Xl,A2,Xl»A3), 



RT(A3#X1* A2#Xl# A«#Xl#A6»Xl, A3)# 

PT(Al>Xl#Al#XlHk5#Xl#A5>Xl,A6}# 
TQATH(Xft,"PTFI nS OF WORDS TM TH F 



02105000 
02106000 
02107000 



02107100 
02107110 
0210712Q 



02107130 
02107140 
Q2109QQ0 



I /Q A SSIG NM ENT T ABLF S»"// 



02109000 
02110000 
Q21110QQ 



52 
53 



55 
56 



*1 



XB#"TINU'V 
X12#" [C:3J*V 

X12> w l T3;53 HARDWARE UMIT NUMRFR"/ 



02H2000 
02U3000 
Q2114QQQ 



X12i 

X12j 
X12j 



[8t33'V 
X 1 1 « t ] 



POWER OF 2'V 



02115000 
02116000 
02U7000 



1 

2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 " 



45 
46 
47 
48 
49 
50 
51 



52 
53 
54 

55 



X 1 2 » " 3 
X12>" 
X 1 ? ■ " 4 



[24:1] 
C 2 5 s b J " . 

[3CI1A3 



UNIT MNFMUNH;"// 



Xfl>"RD 
X12*° 
-X 



12 » "1 t 



CTABLE"/ 

tos83"/ 

8t 6 J 



MIX INDEX IF ASSIGNED"/ 



Xl2»"2 
XI 2, "3 
X12 » "4 



X8»"PR 

X12» M 

Xl2,"l 



[1*510] 
[24117] 
[ 4 1 ; 7 3 



NTABLE"/ 
CO J 1 J M / 



KEEL number"/ 
creation date."/ 
cyc l e"// 



IF WRITE RING PRESENT"/ 



XI 2*" 
XI 2, "2 
X 1 2 » " 3 



[2 5 133". 
t 15J15] 

C30t lttj 



ADDRESS UF TOP 1/0 DESCRIPTOR"/ 
PHYSICAI HEEL, NUMBER"// 



"LUN"» 
"TINU" 
w Mii| Tf 



X6* 

»X24* 

TABLE"**' 



"LABEL 
"RDCTA 
"PRNTA 



TABlE'SX 
BLE">X24 
RLE"/ 



4, 



X9* 

X2* H 1" 

X14>X1 



#X4,"2%X6>"3"»X4,"4"*X8# 

4j_ 



X4»"l" 
X2*"l" 

B OOLEA N PR 



#X2* 

OCFQURF 



2'% 



X4>"3"*X6,"4">X8, 
X5*"3"'XbJi 
VFRIFY(whAT » A f S ); 



VALUE 
INTEGE 
R EAL A 



what; 
r wiiAT; 

.t_SJ 



BEGIN 

DISPLA 
VERIFY 



Y( aHAT/FALSE); 



PDATADESCCWHA 
(S 

LA 



T*A) AND 
»=»A.C8t 1 



03)>0 AND 

, AND 



(A 
END VERIFY 
FORMAT IQ Q 



+s-i)<maxcgr; 

SHCFIRD S 01 WQRub uv Th f- I/i " QUm E TAB L ES"// 



02118000 
02H9000 
0^120000 



02121000 
02122000 

02123000 



02124000 
021e5000 
02126000 



02127000 
02128000 
0212 9Q 00 



02130000 
02131000 
021 32000 



02133000 
02134000 
0213^000 



02136000 
02137000 
02138000 



02139000 
02140000 
n?i4innn 



02142000 
021^3000 
021 440 QQ 



021-43000 
02146000 
02147000 



02148000 
02149000 
02150000 



02151000 
02152000 
021 3 3000 



02134000 
02155000 
Q 2 156QQ Q 



X8»"UN 

X12»" 

X 12j"1 



IT"/ 
t C J J 3 " / 

[1 14J 



UNTT TYPE"/ 



02157000 
02158000 
Q2U9QQQ 



X12>"2 [5:83 ERROR FltLD"/ 
X12>"3 [13UJ UNIT NOT HEACY"/ 
XI 2* "4 LUXU FRRJR FLAG"/ 



02160000 
02161000 
U?102000 



X12# H 5 [15*13 WAITING FUR AN I/O CHANNEL"/ 

X12,"6 E 16 823 1/0 IN PROCESS"/ 

X12,"7 C 1»» 153 INDEX OF FIRST 1/0 REQUEST"/ 



02163000 
02164000 
02165Q 0Q 



X12#"8 
X8>"L0 
X 1 2 * " 



C33U53 
CATGUE"/ 
[Ct33 



INDEX OF LAST 1/U REQUEST"// 
= 5> DESCRIPTOR HITS"/ 



02166000 
02167000 
02168000 



X12,"1 

*12>" 

X12i w 2 



C3J53 

t6»4'J'V 
C 1 2863 



MIX INDEX"/ 

LOGICAL UNIT NUMBER"/ 



02169000 
02170000 
021 7 10Q0 



X12»"3 
Xl2#"A 



[16J153 INDEX OF NEXT I/O REVEST"/ 
[33U53 ADDRESS OF I/O DESCRIPTOR"// 



LUW/ T_UslU_ 



02172000 
021 73000 
Q217400Q 



"UNIT" 
"IOQUE 
" L OCAT 



*X31* 

"#X19# 

U E "»X21 , 



02175000 
02176000 
02177000 



>T 



1 

2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 



17 
18 



IS 



21 
22 
23 
24 
25 
26 
27 



28 
29 



90 
31 
92 
33 



34 
35 



36 
37 " 
38 
39 



40 

I 41 

42 

43 



jO 



45 
16 
»7 
48 
49 
SO 
61 
52 
53 
54 



55 
! 56 



"FINALQUE"»X1 \/ 

"INDEX"#X7» 

x?f"i w iyp."y".x^"v,itii ,, ti ».xi.»s". 

Xl# M 6"*Xl,"7"#X5' H 8"#Xli*X24# 

X2* " l w ' X 5 ,"2»,X2*"3 H #X5>" 4"//)# 
■tfri'CAS»Y2tA"i?* : 



UF0(Al#Xl#Aii»Xl»A3#«(Xl»Al )*2(Xl> AS} )# 

WFDCD*X1#C)» 

LFOf Al»3f vi» Ay)»?fxi»A5) j; 



LABEL FQBAD, FQEND#g; 

procedure writefbrkque; 

RFfilN 



FORMAT F6iIT_M(X48*2(Xl#L)#X6); 

prevlnkufcrklnk; FQHARAM.sfORKLNK+2* 

WKlTE(LTNF[*1>F0TTEM>nCTALChIHAi Ff FQ PAHAMn. 



OCTAL ( LOH ALF C FQP ARAM ) ) ) ; 

M0VE(NAMS[NAMEtFORKPRO3,CF3,_lMEt_3* 

— — NAMECFQRKPRQ'I.PF ); 



write (p[0bl3#9*linlc*j); 
fqrkunk.bvfork.cf; 
fno write fqrkcltej 



FORMAT FQEMPTY(X8>" THE FORK 'fcUE'U'E IS EMPTY*)* 

FQH0(X8» M THE FORK QUEUE CONTENTS ARE $«// 
X16*" f TNOFPEMIFNT RUNNFRS WAlTTN.fi ". 



"TO BE STARTED BY Tht McP )•'// 

Xl6» H PFCCtOUHE NaME"»X16, 

"PAR AMFTFR TO RF FASStO L. P»r r. Fin hP y / 1 ; 



FORMAT SQBA0(X24#"THE SQ IS NOT CORRECT. *), 

S00UTCX6#A2#x2#V2#x7*2(Al»x_),2(A2»Xl).# 
3CAl<Xn»5rAS>»Xl)»X2»2AA)* 



SQHD(X8*»F1ELDS OF THL WORUS ijm THE SO« ,, //,xB# w bo"/ 
»X12>'" COil]"/ 
*Xl2,") ULJJJ LJ-LL-J-PX- BIT"/ 



#X12#" 

»X12,"2 

>X12>" 



[2.63'V 
[8143 NLS'V 
1 1211 3 _/ 



*X12*"3 [13*23 FLAGS FOR EXPANDING A JOBS AREA"/ 

»X12>"4 [15t3] NUMBER OF SWAPS FOR JOB"/ 

jX1?,"S flBlftl ShAP STATLS OK JOB"/ 



#Xl2# M 6 E24J6) (NUMBER OF CHUNKS POSSESSED BY JOBJ'IV 
>Xi2# M 7 [30*6] CHUNK NUMBER OF LAST CHUNK FOR JOB"/ 
*X12>"8 C36»63 CHUNK NUMbER OF FIRST CHUNK FflR JOB"/ 



*X12>"9 [42:63 MIX INDEX OF INExT JOB IN ThE SWAP 

"READY QUE"// 
, X8, "EL M I X" , X Q, " 1 " , x4* " s" > X __ " 3" / X 1 , _ 4" * X 1 j " 5" 



OR 



>X2#"6 w #X2* ,, 7 M »X2»' , a ,, #X2# M 9 ,, *X4# M STATUS"/}; 

format fq&D(«******w,» iH _ forkgue is broken, a backwaros "* 

"SE A RC H WILL RF M A f l F _N n FVEHYTHlNfl THAT CAM'BF FOHN.V* 



" WILL 
REAL LOGZERO; 
OFF TME MIX 



REM 

LL 

T YPE 



BE PRINTED."); 



»i noasERO. r 2 « ^ itf > 



sLO_2ERO,t7«l3*' 
■LOGZERO. [fl«83#/ 
^t nr,ZERO. [ lftS7]»> 



SPOED *L0GZER0.t23U]*> 
XCLOCK eL0G2ER0.[2b»233#; 
DEFINF L0GTYPFMAXal7)»; 



DEFINE LOGBUF*TB#; 

DEFINE ATIMES«»ITIMES#j%TRlCK SAVES ONE ARRAY TO CALL GETIMES 

INTEGER ARRAY lTlM_Srm3ir _^ 



02178000 

02179000 



02181000 
02182000 

naimooo 



Q21b4000 
02185000 
Q?lft6QQQ 



02187000 
02188000 



02190000 
021V1000 

02192000 



02X93000 
02194000 
02195000 



02196000 
02197000 
n_19flOQQ 



02199000 

02200000 
2201000 



02202000 
02203000 
022(14000 



02205000 
02206000 
0?206100 



02207000 

02208000 
02206100 



02208200 
02208300 
02208400 



02209000 
02210000 
Q2211QQQ 



02212000 
02213000 
02214000 



0221b000 

02216000 
022161 0Q 



02217000 

02218000 
0P219000 



02220000 
02221000 
02222000 



02223000 
02224000 
02225000 



02226000 

02227000 
02228000 



02229000 
02230000 
02231000 



ill 



I-)' 



>r 



; 

i 8 

9 

10 

11 
12 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 
25 
26 
27 



28 
29 



30 
31 " 

\ M 
33 

34 

| 35 

36 

37 ~ 

) M 
39 

40 

I 41 
42 

43 
\ 44 

45 

46 
I »7 

48 

49 
I 50 

51 

52 

i 53 
54 

55 

i S6 



ALPHA ARRAY YESMOtOU]/ 
BOULEAN DESCOK^EOFQK; 

FORM A T L Q(i HDR( «M I X ",x 1 > "L L "*X 1 » "T YHfc , " ,* \ , "hEM i n L " ,X U " S P O E U " * 

X5*"TIrvE ,, >X7,"LQG ENTRY" )* 
FL0GC2(X1M2)>X3M2*2(X2> A3* X2 ), A2* 3 { « « "> A2 )* X4, XBO )> 
Ran7FRnf vtn.sfw^i.wwniiri -/Fan mar tmf ELUt£flJL4 nN,,,">- 



comsave«=com; 

c0m»«b00leanc64); x octal only when call prlm 

rispi ayctnqle, false); 



IF OPERANDCTCGLt#R) ThEN 
BEGIN 
FOR i:*l*2*3,5 STEP 1 UNTIL 1I;H STFP 



IF BITON(R»I) THEN WR1TECP»Tf'» IM*-n* 

FOR I S « 2 7 STEP 1 UNTIL 31*35,43 DO 

IF BlTPN(W<n ThFN WR 11 E ( F* TF*IM *- 1 1 i 



I UNTIL 1 7 00 






"PBlJSY 



tt 

It 

n 



l» 



"DIRECTOR" 
"SLPTICTA" 



"NU 
•1 



MEM 



* it 



"CDFREE " 



"SCHATCHD" 
"MCPFREE " 
"AHFASNEF" 



"AREAROY M 

f» It 



tt 

tt 



"CANDEINP" 
"WORKING " 
"INTFHFF w 



"NUBACKTA" 
"KEYBOARD" 



"NEEDSELE" 
M SYSOISKT M 

" N SEcnN DR" 



FILL TBI*] MTH 
tt . it 



11 



"YTOG 
"NKINfi 



" COUNT 
it ___-,_ 



" TOGLE 
it 

"DDRFSS 



"IRECTORY 1 



"f)EO 



"UTREAOY 
tt 

tl 



ft 

"LK 



i!R£AO^ 



"CT 
"OG 
"EA DY 



"READY 



S.OGCNEVER USED) 

Mi 



%0d 
i0'3 



%Q5 
*06 
%07 



%0b 
%os» 



xn 
1.12 

AUL 



114 
X16 



XI 7 

*ia 



*20 

2521 

* fc M 



%23 

%2<4 

12iL 



%26 
127 

a>28 



*29 
5i30 



Si 32 
X33 
*34 



*35 
*36 



%38*0NLY MARK 
X39 



xl 



02232000 
02<!33000 



02235000 
02236000 
02?37Q00 



BADD£SCC5("*"),"L0GARRAY DESCRIPTOR HAS BEEN CLOBBERED...")* 022J800C 
BADE0F(5("*"),»LDGARHAYL 30] lb INCORRECT..."); 02*39000 
NEXTPAGE* Q2*4UQQQ 



02240100 
02240200 
02241000 



022^2000 
02243000 
Q2244Q QQ 



02245000 
02246000 
02247000 



02248000 
0224*000 

02251000 

02252000 

-02253000 



02254000 
02255000 
02256000 



02257000 
02258000 
02259000 



022o0000 
0226100C 
(12 262000 



02263000 
02264000 
02265000 



02266000 
0226700C 
02268000 
02269000 
02270000 
02271000 



02272000 
022'300G 

-02274000 



02275000 
02276000 
02277000 



02278000 
02279000 
02280000 



02281000 

02282000 

.02283000 



02284000 
02285000 
02286000 



02267000 
02288000 

Q 2289QQQ 



47, 1 

48| 



'.,2 
b.i 
54 
"|«.5 
|.ho| ' 



ft 



10 

11 

12 
13 
14 
15 
16 
17 
18 



19 
20 
21 
22 



23 
24 



25 
26 



27 



29 

30 



31 
32 
33 
34 



35 

36 
37 " 
38 



39 

40 

l 41 

42 



43 



45 
46 

I *7 
48 



49 
, 50 



51 
52 

54 



55 
! 56 



"HULDF 
"(JSERO 



ISK", "READY "," 



" / % 4 1 
"*X42*USE.RSF-ACEHEADY{MARK 

" * * 4 3 __ 



X) 



022V0G00 
02*91000 
Q22.V20Q0 



"STACKUSE"*" 
w SH£ETFRE w *"E 

"ST&T1ISHT"."T 



">*44 
" * % 4 5 
".146 



02293000 
02294000 

na295nnn 



"HP2T0G "*" "#" M /*47 

FOR I? *4, 12,13, l8>l9, 20* 2 l#22, 23*24,25, 26,32/33, 34, 36, 3 7, 36, 39, 

. 40>4if a?>4<u45/4d,47 i,)n, ______ 



02296000 
02297000 
02297100 



BEGIN 



WRITE(HNEC*3#TFxl#I»rtLALtdlT0N(K#I)))J 
MflVC C TB r 3* T 3 1 » I I N E f 2 J » 4 » 3 , ) J 



02298000 
022V9000 
Qp30Qnnn 



WRITE(PCDBL3,6,LINEt* J )/ 

end; 

O tS P LA Y(N O PR0C E. SST QG »FA USt )i 



next item? 
oumparraY(tar); 

D I S PL AY (TO GLF tFAl SF)/ 



023U1000 
023U2000 
2 30 22 QU 



it for cnMPARrsxnN 



nextitem; 
nextpage* 

P I 9P L AY(0PT IC N*FA I J>E?J 



IF OPERANDCQPTION,R) THEN 
BEGIN 
IF B l TO Nf R fl ) THFN 



WRITE(P#TF»1 

FILL TBC*] W 

r u SLCRA" 



, 1,-1)> 
ITH 



"USEORB" 
"BOJHES" 
"Cn.lMES" 



"OPN^ES" 
"TER^GO" 
"filVECA" 



"GiyETI" 
"NOT US" 
" AUTGFR" 



"NOT US" 
"MQT US" 
"COPN^E" 



"CLOSEM" 
"ERRORM" 
"RET^SG" 



"LIUMSG" 
"SCHEDM" 

"SE CE'SG " 



"DSKTCG" 
"RELTOG" 
"PBDRFL" 



"CHECK " 
"DISKMS" 

"DK LQG ,! 



"LIBERR" 
"USEPBD" 
'SVPBT " 



"RSTQG " 

"AUTOL'N" 
'RNALL 



"COOECL" 
"NOT US" 
"DATACL" 



♦5 

s_ 



l£_ 



♦ME 
ED 
Uil_ 



"**39 



ED 
•ED 



" , % 3 / 
",%36 



•ESS 
•SG 



'6G 



"LO 



"AY 

"ED 
"AY 



",*15 



02303000 
02303100 
02303200 



02303300 
02303400 
02304QQC 



023C5000 
02306000 



02309000 
02310000 
02 311 



02312000 
0231300C 

023,4nno 



02315000 
02316000 
02317000 



02318000 
02319000 
Q232QQ0Q 



02321000 
02322000 
02323000 



02324000 
02325000 
02326000 



02327000 
02328000 
02329Q0Q 



02330000 
02331000 
02332000 



02333000 
02334000 

0233500G 



02336000 
02337000 
0233800Q 



02339000 
02340000 
023^0100 



02340200 
02340300 
0234Q»0Q 






51 
52 

56 



1 

2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 
47 
«8 
49 
90 
51 
52 
53 
54 
55 
56 
&7 



"HALTSE"*"T 

"REMOTE"*" 
" CA lN CYM"*"£ SS 



02340500 
02340600 
0234Q7Q Q 



"BATCHT"*"QG 
"BACKGR H *"QUND 
"ST0PTF",»ST 



"PUNCHL"*"CK 

"CDUNLY"*" 

"PKT QM, "*"Y 



"SEPARA"*"1'E 
"AUTOCE"*" 
Ql% 



02341000 
02342000 
244 2010 



02342020 
02342030 
02J4?0afi 



£±1& 



R.C9J1]:=REal(i\0T 
WRITE(P*TF*2*R.[H: 
H- 3 STEP 1 UNTIL 



dGUlLANCrt. C 9! 1 j ) );* 
n»2*"H00iI0"»"S 

4/ du 



i\qt background 
")* 



023**2050 
02342060 
023 43 000 



02343100 

02344000 

-0.? 345000 



WRITE<P,TF*1*REALC 

TBtAliZx(fl7-I) 



BIT0NCR,I)),2, 
3#TBCA + l3 j; 



FND, 



02346000 
02347000 
02348000 



end**of togle stuff 
nextitem* 

DT.SPI AY(MESSA6EHni.UfcR»fr aLSF J> 



02349000 
0235G00C 
03 31100 0- 



n«o; 

IF OPERAND(MESSAGEHOtOtR'R) And <R:sR.CF>XO THEN 

00 ^ 



BEGIN 

WRITECLINECM* ITEM 
QCT A LCH I HA L FCR 



02352000 
02353000 

02 3 5 4 000 



*OCTAuCR), 

) )jQnAuCUIHALFtR) W 



-iOJ- 



02355000 

02356000 

- 02 35 7000 



-E-WO- 



MOVOCMCCR+n.RO«»C 
WRITE(P*15*LINE[*3 



R+l}.C0t,3*LINEt4.1,MlN(9*MAXC0R*R)); 

)* 



02358000 
02359000 
02 36 0000 



UNTIL 

Ci: = 
NDX 



1 + 1) GEU MAXMEoaAGEs 
nFERA\nCR>R) OR 



:'JK 



02361000 
02302000 
02303000 



_LF_ 



(r«bR.ff)=o; 
nextitem; 

F)FSrnKisVFBTrYft flG ARR A Y , K , A ) AND 



02364000 
023O5000 
Q ?36 60Q0 



EOFOK!s(QPERANUCR + 30,A) AND AsKtALCNOT FAl.it)) ThEN 
BEGIN %OUMP LQGAHRAY 
N R l TF(P [D B L]iLUG HUR ); 



02367000 
02368000 
Q 2-3 Q 9 QQ 



YESN0[03ia M NC "** YESNOC 13 i ■" YES"* 

FOR i:=0#l,2 00 

IF NIHT QPFRAMnCAl»R*1QxI.LUQ7FH0> THTN 



02370000 

02371000 
2372 QQQ 



BEGIN 



WRITECP.8ADZER0) ELSE 
I 
MQVE{MC(A + ,l).R,C)Wt (A+l i * CQI , 3 * HJGBUF * 9 ) ; 



02373000 
023/4000 
0237hOOO 



GETIMESCXCLOCKM 
WRITE(LINEC*1*FL0 



TIMES 
G#MIX 
YFSNQfREALCROOL 



*ATIMES);*N0TEIATIMES»ITIMES 02376000 
#UL*TY-PE»YESNtJCREAL(B00LEANCREM))3* 023/7000 
LAN C $ PQED> n* Q 2378 QQ Q 



FOR C:=0 STEP 1 

IF TYPE NLO ti AND 1YP 

TYPE LEQ LOGTYPEMA 



UNTIL 3 DO 
L NEW 9 AND 
X THEN 



ATJME5CC J)* 



02379000 
02380000 
02301000 



M0VDCLQGBUFC0]»LlNEt5 

MQVE<L0G8UF[01#LINE[5 

ELSE IF TYPE>9 T 



3*9) ELSE 

J* IF TYPE»6 THEN 

HEN 5 ELSE 9 J J 



02382000 
02383000 
02364QQ0 



WRlTE(P,15,LlNE[»3)i 



end; 



E ND * 



02385000 
02386000 
02387000 



IF NOT DESCOK THEN WRlTE<P[DBL 
IF NOT EOFOK THEN fcRITEC PlOBL 3 

next ite m j x end l q g array dumf 



]#bAUOESC)J 
*BADEUF), 



02388000 
02389000 
Q23 9Q 00 Q 



4'-i 
4-* 



IstJ 



h- 



i 

2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 



13 
14 



IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 



27 
28 
29 
30 



31 
32 



33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 



42 
43 

I 44 
45 
46 

; 47 
•8 



49 
| 50 



51 
52 

\ 53 
54 
55 

i 56 



COMMENT 



.. THE FOL 
OF THE FOR 
RFPlACFf, T 



LOWING SECTION PRINTS ThE CONTENTS 
K QUEUE SINCE ThE FORKQUE HAS, 

he slate, the yi£ contains a a 



02391000 
023*2000 



WORD ENTRY 
ARE 0ISJOI 



FOR EACH PWOCLQURt. THESE ENTRIES 
NT AND ARE LINKED BY THE FIRST 
WORD IN FACH FNTRY. THF HFAD 



AN D T AIL 



023V4000 

02395000 

-01 023*6000 



QUE A 
ANALY 
S E ARC 



RE KE 
ZED L 
ri I S DUNE 



PT IN FORKQUE. THIS QLE IS 
IKE THE RED BUI ONLY A FORWARD 
N-t-» — .«««»»>» — r Q - d — » « » > ■!»■> 



HAH ... THERE IS A 
IF ( PDATAOESCCFORK 

f vrnRK.cqiqisS-i 



023*7000 
02398000 
02399Q0C 



BACKWARD SEARCH 
CUL>VFQRK) AND 
4.X-A4VD 



WPM< 



02*00000 
02*01000 
2* 02000 



(FORKLNKJsVFORK.CK J/f-ORKQUE ) THEN 
BEGIN 
WRITK(PtFflHD) J 



02. 



02*03000 
02*04000 
JLUSOfH 



ioou 



PREVLNK»»FORKQ 

WHILE FORKLNKX 

IF COPCRANQCFQRK 



FORKQUE DO 
LNKjVFCRK) and 



02*06000 
02*07000 

O 24Q B0OG 



VFORK.FFsPREVLNK ANP 
OPERAND CFCHKLNK + 1*FGRKPNU J A NO 
{FORKPRQ>=FURKPRQtCF , 



fiFfi 129 AND 



02*09000 
Q2410Q0C 
02411000 



FORKPRQ LFQ 
WRITEFORKQUE 

-^ Ft,SE GO TO 



PRTMAX) THEN 
FQBAD1 _ 



02*12000 
02413000 
24 1 *00 



END ELSE WRITEC 
KQBADI PREVLNKJeF 
I F ( PPAT A PE S .C(FQB,KCUE * VFQRK J AND 



P/FQEMPTY jl 

cRkque; 



gu 10 fsenl; 



<VF0RK,t9«9]*51 

cforklnk»*vfork 

WHMF FriRKINK* 



02*15000 

2*16000 
02417QQQ 



1) AND 

.FF3/F0RKQUE 
rfl-HKQiiF nn 



) then 



02418000 
02*19000 
02420000 



IF COPERANDCFORK 

VFORK»CF=P 

UPFRAN DCFO 



LNK#VFORK) AND 
REVLNK ANU 
HKlNK + l^FQRKPRQ ) 



AND 



02*21000 
02422000 
02*23000 



foukpro leg 
prevlnk:«forklnk; 



Qt WRITE(P#FQBD)J 

while forklnkxfc 
wr heforkqu e; 



CFC)RKPRO:*FORKPRO.CF) GEG 129 AND 
PRTMaX) THEN BEGIN 
FQRKLNKlsvFQRrt.FF; END ELSE GO TO Of 



02*2*000 
02425000 
02*26000 



forklnk »*phevlnk; 

RKQLE DO 



FQENDt 
BEGIN LABEL MAKESEGJ MAKESEG** 
NEXTITEM/ NEXTPA6FJ 



02*27000 
02*28000 
02*29000 



02*30000 
024J0100 
02*31000 



SGLTOG»=TR 

IF tinuok:=verifyctin 

VERIFYCMUL 



LE> 

L*Ta*T3) AND 
TlTABLE*MA»laS) AND 



02*31100 
0^432000 
02433000 



VERIFY{LABFLTABLE*LA»LS) AND 
VERIFY(RDCTABLE'RAfRS) AND 
VERIFYfPRNTABLF*PA*PS) ThEN 



02*34000 
02*35000 
02*36000 



BEGIN 

S5=MAXCTS 
WRITEfPM 



#MS*lS*R5*P5)-1' 
PATH)/ 



FOR I t-0 STEP 1 UNTIL S DQ 

BEGIN 

WRITE(TB[*3»LUN>0CTAL(U); 



02*37000 
0^438000 
02*3900 



02**0000 
02**1000 
2 **2 QQQ 



IF I<TS THEN 
BEGIN 
: WRITEfLlNE[«],FT* 



02*43000 
02444000 
02445000 



(AJ*HIHALF(TA+I)).C2*J33# 

GCTAL(A.C27»53)» 

A . C 3 2 » 33^ " 



02**6000 
02*47000 
02*46000 



■17 ' 

48' 

\'1 

.1) 

51 

52 

3 

51 



>r 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 
20 



21 
22 
23 
24 
25 
26 



27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 



42 

43 ~ 

44 

45 

46 

♦7 

48 



49 
50 



51 
52 



53 
54 
55 
56 
57 



CC TALC A. 13 :>:/])' 
CCTALCA.C4*»6])# 
C A : g l OrUI.FC fA+i )),[^!l]i 



02449000 
02450000 
02451000 



0CTALCA.C25I53)* 
A, [30:183); 
H0VCCLTNFEQ W 0» TB [1 LlX juLuLU 



02452000 
02453000 
n343<innn 



end; 

IF I<MS 

Mnvc 



THF.N 
CHClMA+l).HOWf(MA+IJ,cn,Ll»0»TRUlf'>»l»0).J 



02455000 
02456000 
024^7000 



IF I<LS 

MOVC 
IF KBS THEN 



then 

CM[UA + I).RO*#(LA+i) f COL3»0#T6[63#3#l#0>; 



BEGIN 



02458000 
02459000 
024 6 0000 



WRITECLINEC* J»K1# 

CCTAI.C C,W=H,IHALf CHAtI )). [2at«J) 



OCTAL(A.C32tft3)» 

CCTAt(A, C38J 103 i# 

PETALf CAfLflHALF CR A* n ).[?«* LLLLg 



02461000 
02462000 
024ft30Q0 



02464000 
02465000 
0?466000 



0CTALCA.C41 :7})ii 
.M0VCCLlNEtOJ#0»Tb[8J*l»2*6)> 



END; 



02467000 
02468000 

o?4ft9nnn 



IF KPS THEN 
BEGIN 
WR lT EfL TM FC» 3-#PT> 



02470000 
02471000 
Q?47 2000 



(a:shihaLFCPA+I >).[i"*;i j j. 

A.C25: 1J> 

CC TA Lf A .t2 6; l3J L± 



024/3000 
02474000 
24f 5QQQ 



CCTAL(CAJ*L0HALFCpA + I)8,ACl5:39:93),C15J153)* 
CCTAL(A,[30:18n>; 

M0VC(Ll NFfQ Jt O»TB ri.J»5>?i ft ) / 



02476000 
02477000 



end; 
write(p»15*tb[*jh 



END; 



end; 

NEXTPA 
OISPLA 



024/9000 
02400000 

o?4Binon 



ge; 

Y(IOQLFSmTS>FALSP 31 



02482000 
02483000 
02483500 



OISPLAYClOQUEAVAlL#FALbfc>; 

IF VERlFY(UMT'UA'Ub) AND 

VFHIFY(1CCUL/TA,1S) AND 



VE 
VE 

BEGIN 



RlFYCLOCATQUE*LA*LS) aNq 
RIFY(FINALQUE#FA*FS) ThEN 



02484000 
O24O5000 
02486000 



S|«MAXCUS»I6»LS#FS3-1; 

WRITE(P#ICOSH.)i 

FHR H=Q SUP 1 UNTIL & 



02487000 
02488000 
02 4 a 9 QQQ 



Ji£L 



BE 
WRITE 



GIN 

CTB[*] 

LCHALF 



02490000 

02491000 

-0 2492 000 



#IF0>OCTALU)#IF TINUCJK THEN 
(TA + n.£30M63 ELSE "*♦*«); 



02*93000 

02494000 

-Q2495QQ0 



IF KLS ThEN 
BEGIN 
» RITE (I INEt*J'UFQr 



024*6000 
02497000 
02498000 



CA»»HIHALF(UA+I JJ.C24I13, 
0CTAL(A f C25l43)» 
CCT A . L (A.[g9l|3)» 



02499Q00 
02500000 
02501000 



A.[37ll3» 
A.C38: \)> 
A.[39;iJ-»- 



02502000 
02503000 
>504( 



A,C40l2]# 

0CTAL((A*«LOHALh (UA+I HA C 18 : 421 6 J ) . C 18 » 15 J ) > 

OCTAI (A.r33ll53»l ; , 



A& 



>00 



02505000 
02506000 
Q2S0700Q 



4rt 
■M 



5,1 
^4 



,'.6 
|5'. 



4 
5 
6 

7 

e 

9 
10 



12 
13 
14 
15 



16 

17 

18 

19 ~ 

20 

21 

22 



23 

24 



25 

) 26 

27 

28 

I 29 

30 

31 

l 32 



33 

34 

, 35 
36 

37~ 



40 

i 41 

42 



43 



46 

t8 
49 

51 



52 
I 53 



55 
t 56 



N* C V C ( U N £ I .1 » ' T d r 1 J > 4 , J > 4 ) ; 

end; 

tf kis then , 



BEGIN 

WRITE(LINEL*]>WFU, 

HCTAI. .(HIHALFf TA + I )■)■ 



END J 



CCTALCLDHALF(IA+1))); 
M0VC(LlNEC0]*0^TbCb]*7*2'liJ 



IF KLS THEN 
BEGIN 
HRTTE(LINrr*J»ffU-t 



CAisHIHALFCLA+1 J).t2m3j# 

OCTAL(A.[2/lb3)» 

C CT » U A.t3<» «33' 



0CTAL("A,C36»6))# 

CCTAtf (Al=L0HAtF(uA*I)&ACia:^2*6]) f [18U53 3, 

CHTAI {A>f33l1*n)l 



MCVC(LlNEC0J»0#iateJ>7#2#6)* 

end; 

if isf5 thfn 



BEGIN 

WRnr(LlNE£*3*WF£J» 
ncTAL(HlHALF(-FA+IV)> 



END. 



OCTALCLOhAUF CM + 1) ))/ 
*CVC£LlNEC0]*Q*1b[12J#4,2#l}> 



WRITE(P#15'TBC*n; 

end; 
n f xtttem j ___^_ 



printarraycchannel); 
nextitem; 

PI$PLAY(PI SK Ol; NT,FAL$r?; 



IF DFX THEN BEGIN 
DISPLAY(EUW*FALSE)i 
PRINTARR AYfFU fiW 



end; 

if sharedisk 

RFfiTN 



THEN 



nextitem; 

d i splay (uav ail* false); 

IF VERlFYCLQUFHlAfUS? A ND 



02508000 
02^09000 

025,10000 



02511000 
02512000 

nztai anno 



02514000 
02515000 
2 M6QQQ 



02517000 
02518000 



02520000 
02521000 
Q25g2000 



02523000 
02524000 

n?525nnn 



02526000 
02527000 
0252&QQQ 



02529000 
02530000 
Q2531QQQ 



02532000 
02533000 
02534000 



02535000 
02536000 

n?536inn 



02536110 
02536120 
02.536130. 



02536140 

02536150 
0?536lftn 



02536170 
02536400 
QP336410 



OPERAND(LGAVAIL'FA) AND Fa GEO AND H'A LEQ US THEN 

IF FA=0 THEN WR I TE C H > NULLQUt ) ELSE 

B E G I N 



02536420 
02536430 
Q? 5 36 44 Q 



MRITECPtDBLJ'LUUEHDR); 

S»»MIN(20,FA-1); 

FOR ElsO STFP 1 UNTIL S 



02536450 

02536460 
0?5jQ47Q 



JUL 



IF NGT OPlRANDCuA+C»L) OR (LAISL.C1S73) GEO 64 
WRITE(PfBADLQULNTRY/UCTALCC)»DCl ALCHIHALF(L))* 
QCTALCLOHAlFCUn FlSE 



02536480 
02536490 
09536500 



THEN 



02536510 
02536520 
02536530 



FND 



WRITE(P*FL0UE»0CTAL<C)*0CTAL£LA)#L.C8I4]»L,£12I36J) 02536540 
END ELSE WRITE(P*BADLQUE); 02&36550 

i - QUEJ _ Q?5365ft0 



end; 
sgltog»=false; 

CnM>»CQMSAVE; 



end block; 
sgltogi«t«ue> 

IF SHARFDISK THFN 



02537000 
02537050 
02537075 



NTXTPaGF; OISPLAYfSQ*FALSM* 



02537100 
02537900 
03538000 



hi 



1? 

48 

■19 

SO ' 

51 

52 

53 

',4 

55 



^r 



12 

13 



15 
16 
17 



19 
20 



24 
25 



27 
28 

29 

30 
31 



34 

35 



36 

37 " 



38 
39 



42 
43 



48 
49 
50 



53 
54 



55 



PI SPLAY ( READ VEND # FALSE); 
OISPLAYCFORCEND, FALSE); 
UlSPlAY(RDYRPTFNO>FAI, SE ) ? 



display(swapend#false); 

s»gltog«*false; 

If pnaTADESrfSQ* ai and fAUA.m>u 



02536100 
02536200 
0?53B300 



THFN RFfiTK 



WRITE (P»SQHD>; 

FILL TB[*3 KITH 
"TIMFND">" 



02538400 
02338500 

o?539nno 



"WAITSW"*"AP 
"BOJSTA">"TE 
"SATISF".«Y 



02^40000 
02541000 

02542000. 



"EQJSTA"#"TE 
"FORCES", "HAP 
"TRANST"»"T 



02543000 
02544000 

Q2545000 



"WAITST"»"AT£ "> 

"READYS«."TATE n * 
"HPYPRT"." »*_ 



02546000 
02547000 
Qgbagooo 



"READYB"," 
"HUNNIN"*«G 
"SELECT", "INifi 



02549000 
02550000 
0^551000. 



"STABLE" #" "» 
"*BAO S"#"TATUS*"; 
FOR Sla l STEP 1 UNT I L 



02552000 
02553000 
02554000, 



MIXMAX 00 



FOR S*0 STEP 1 UNTIL MlXMAX,il Uu 
IF OPERAND(A+S#R) AND 
(RXO QR (R»R AMlfSaO JR S«3lni 



02555000 

02556000 

-02557000 



THFN dr-GlN 



N:*L»=R,C18«6]; 

IF N>6 THEN IF (Ni«N-l}>10 THEN 
rise ir .***) THpNi M*ip £i s F rr 



02537500 

02558000 

.02558100 



IF N*15 THEN M»ll 

N«55 THEN Nfl3 ELSE N I M 4 * 



02559000 
02560000 
2 561000 



WRITECP,SQQUT,OCTALCS)>IF EUFOK* C 3=0 0* S=3D THEN "A" ELSE "I", 02562000 

IF EOFOK THEN " " ELSE S, 0, OCT AL CR . C 1 « 1 3 ) , 02502100 

QC T AI f R.r2»61)>nCTAl (K.[9itn,UCTAi (R.Ll2lin.0CTAI CR.M3l2l).Oa562?00 

0CTAL(R,C15J33),0CTAL(L)#UCTALC«.C24I6J)# 02563000 

0CTAL(R.C30«63),acTAL(R.C36l6J),OCTALCH,U2J6]), 02564000 



IF rnFOK + fSrf-m thfm tbtn+n +n:! flsf " 



if eofok then tbu+lj else 
end; end else 

WRITE (PfnRt„3>SfJRAD)r 



o?56bnon 



}. 



HEMORYMAP; 

END DUMPING MCP INFO; 

PRnr.EnuftF miMPAnyinFMi 



02565100 
02366000 
02567000 



BEGIN 



02568000 
02569000 
03569100 



FORMAT AUX("DR"»A1»" MEMORY DUMP")/ 

AU X MESSC"* PRINT I NG CQNT F NT S DF UR", A \ »" ... ") I 



label tryanqther/Exit; 
boolean comsave; 

RELOAQtsTHUE; 



02569H0 
02509120 
02569130 



tryanotherjx 
if nomo then 

nfxtpa^f; 



02569140 

02569150 

-02569160 



GO EXIT. 



load; 

if auxtype 

JIEJLLN 



02569170 
02569180 
02569190 



KEQ THEN % AUXMEM PRESENT 



NEXTITEM i 

WRITE(P#AUX»16*AUXTYPl d 1 V 4); 
HBITECSP0/AUXHES5,l6+AUxTiPE (j IV 



02569200 

02569210 

,02 569 220 



AIL 



nextitem; 
comsaveiscom; 
com|«bqpl£an( 128 ) / 



02569230 
02569240 
2569 25Q 



31 ALPHA/OCTAL 



02569260 
02569270 
02 5 6 9 280 



117 



'.5 
MB 



h- 



13 



16 
17 
18 
19 
20 
21 
22 
23 
24 



26 
27 
28 
29 



31 
32 
33 
34 
35 



36 
37" 



38 
39 



42 
43 



I «7 
«8 
49 



53 



55 
I 56 



PRINTCG#32768); 

comsbccmsave; 
go try a n0theh 1 



END 



end; 

EXITjRELOAD* 

niiMPAuxMFiMi; 



02569290 
02569300 

Q23h931Q 



•false; 



PROCEDURE 
BEGIN 
R£AL 



fixfid; 

Ai 



02569320 
02569330 
02569340 



FORMAT FNEwFiLEC"#NEXT FILE TO BE ANALYSED IS MEMORY/% Al , A6); 

STREAM PROCEDURE MINUSl(N#AJJ VALUE Hi 

BEGIN Slt«LPr Ml STtaSI+5; UlisAl riH«0l + 5» DSl*3 SUB EisiD; 



02369350 
02369360 
02569 37Q 



02569380 
02569390 
02569400 



MINUSl(l#TOFlD)i 

FILL MDUMP WITH **TDFIU> 

WHITFCSPQ/FNFWf Tl F> T f)F I D . C 6 '• 6 J , TflF T n U 



02569410 

02569420 

.Q 2S6 9 4 3Q 



end; 

FORMAT 



C0LHDR( M B5500 COLLATING SEgUENCE»//X8* "0 1234567"/ ) » 



C0LlNE(X5»Il#X4i*X8)i 
ARRAY COLLATEC0573; 

Rfal HifinnniinGnnn; 



02569440 
02569500 
02569505 



LABEL LJNKSGOOD,LINKSBROKEN>MAXLNKBaD*MSTARTBAD# 

allbad; 

PftOCEOURF INITIALIZE I - '' 

BEGIN 

INTEGER K,j; 

L A BEL EXIT; 



02569510 
02569520 
0?5{iV^25 



02570000 

02571000 
02571100 



COMMENTIZERO ALL VARIABLES « ARRAYS IN THE £vf.NT MORE THAN ONE 

DUMP FILE IS PROCESSED IN A GIVEN RUN; 

IF NOT RELOAD THEK fid EXIT; ^_ - : 



02571M0 
025/1115 
025/ 1 12 



COMMENTJZERO 

i:« 
R: = 



REALS & INTEGERS; 



0257U25 
02571130 
03*7 1 1 3 5 



MAXSTKIs 
BEDSTKt* 
VJflflNfctHIti 



02571140 
02371145 
025/1150 



VBED?* 
LINKTYPE: 
H START!.* 8 



02571155 
0257U60 
02571 170 



MENO ■* » 
VFENCEts 

JU 



025/1173 
02571180 
2 5M185 



PRT0J = 
SSTACK:= 

S STACK I NXf* 



02571190 
02571195 
02571197 



MAXMCPROGI* 
ESP Is 
TN T SPMA X ts 



0230200 
02571205 
Q 25/1 21 Q 



EXTRAINTSPMAXJ 

PROWS t» 

VFf1RKI = 



02571215 
02571220 

02371230 



O; 

FORKLNKI* 

P REVINK»» 



02571235 
02571240 
Q?5/l?45 



FORKPROJs 
FQPARAMls 

HIGOQD»= 



02571246 
02571247 
02571250 



LOGOOD»« 

TABLESLOCJ* 

PRTCODE»g 



02571255 
02571260 

025/1265 



02571270 
02571275 
0257128Q 



fil 



>r 



minlnk: 
minsad: 

-OJ 



02571285 
023/1290 
02571292 



MAXBAOJs 

MAXLNKJs 

JU1 



025/1295 
02571300 
Q257U00 



7 
8 
9 
10 
11 
12 
13 



14 
15 
16 
17 
18 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



comment:make booleans false; 
mystackdumped:* 

PRTQMf 



02Sfl5CO 
025^1505 
02571510 



S6LT06J* 
BADCOMMENTJs 
COMNTl* — - 



LNKS0KJ= 

false; 

AVALNKflKI 



02571515 
02571520 
02571525 



StlHOKFi" 
SOMOKBi» 
N OTP R INTCALL U 



02571530 
02571532 
0257 1 5 3 5 



025715*0 
02571545 
02571550. 



false; 
avalnk:^ 

.NE E DCH E CK A V Al L M KSt a 



02571552 
02571555 

25 7 1 5 6Q- 



false; 

COMMENT 
FOR Kls 



% 

szerd arrays; 
step 1 unti l 



HIXMAX DO 



02571600 
02571700 
02571705 



BEGIN 



MIKSTK[K]:» 
NEXTINTTKHjl. 



02571710 
02571715 
0257 1 720 



o; 
end; 

FOR Kt«Q ST EP 1 UfrTTl . 2xl N A H ESIZfc 



02571740 

02571750 
02571755 



INTSPCK3«a0; 

FOR KJsO STEP 1 UNTIL MIXMAX DU 

FOR J l »0 S TEP 1 UNT IL I NAM Eii UX~ ,1 O f ] 



02571760 
02571800 
257 18 5 



INTCDEC 
EXITIX 
END TNI 



K»j] J «o; 
ttali/e; 



02571830 
02571870 
02 5718 90 



DEFINE DU 
RESTART:** 
INITIAL 



MPD = IF REAL(NEEDCHECMVAILNKS) LSS THEN 16 ELSE 36#; 

1ZL1 



02572500 
02572600 
2 572700 



load; 

DUMPMCP 
TF NOT 



sprt; 

C OMMON TH E N 



02573000 
02574000 
02574100 



40 

41 

42 

«3~ 

44 

45 

46 

»7 

48 



IF OUMPCESSPOOLOMY ThEW 
BEGIN 
DUMP C E SSPQ QL? 



GO E0P8QGJ 

end; 

tf not common then 



02574105 

02574U0 

-02 574 129 



02574130 
02574140 
2575000 



IF CHECKME 

ELSE CQM:= 

C OMMENT T 



MORYtlNKS THEN GETST ACKSF KC1M 1 HEBfcD 

TUlir • 

HIS NEXT SFCTIQN PRINTS OUT CURL AND ANY 



02576000 

02577000 
Q 25 ti O QQ 



49 
50 



51 
52 
53 
54 



REMARK WHICH MIGHT APPEAR ON THE MDUMP TAPE. 
THE INFO NEEDED IS OBTAINED FROM MEMLOC 
AND LINKLOC WHICH ARE SET UP BY THE MEM 



02581000 
02582000 
Q2503QQ Q 



LINK CHECK PROCEDURE* 
IF NOT COMMON THEN 
FflR LL=1X2 ST EP «l UNT IL lOrt 



FGB 



JUL 



02584000 
02584050 
0?5a4?Qn 



56 
56 



IF 0PERAND(I#R) AND H = "EEEE"&"EELE" 1 1125 ! 23 3 THEN X t »-l i 
IF I LSS THEN ELSE IF NOT COMMON THEN WRITECP* SOFLQW )) 
IF CI1MNT THFN . ____ 



02584210 
02584220 

02 58 5000 



^r 



12 
13 



15 
16 
17 
18 
19 
20 



21 



23 
24 



25 
26 
27 



29 
30 
31 
32 
33 
34 
35 



36 
37* 



39 



42 

43 



! 44 
45 
46 



49 
I 50 



52 
I 53 



55 

I 56 



BEGIN 

WRITE(P[DBL]*STARS)J 

TF NOT COMMON TrIFN ._ 



IF PDATADESCCPUNTER'R) AND R»[8U03 GTR AND (RJ-R.CF) GTR 512 

AND R LSS VFENCE THEN 

IF CHR.S(M[R.RnW>R.CHLJ^-CU-l^=L!l»Ji- 



02585100 
02586000 



Then 



BEGIN 



02566UQ 

02586120 
02586130 



WRITECLINEC*]#FBLANKS); 

M f) vn c MCH t Rnfe > n.CQ i. ;ir Lii\F [ f) \n u )i 



WRITE<PCDBL3,15,LiNE[*3); 

end; 

T F RADCQHMENT THFN HR I TF C P L f)_L ] > CC1MNTP _k > Ft _F 



02586140 
02586145 
.0_.5RftJ.50 



02586160 
02586170 
Q?567QQQ 



BEGIN 

WRlTt(P»10#C0MMT [*]); 
M O VECCDMMTC l O ]^CCl XMT[q j^ 



UOX 



WRITECP#10»CQMMTC*3); 
END ; 
HRITE(PtPAGEl»STARS); 



02588000 
02589000 
02-JvOOQQ 



end; 

IF OPERANUC 16, R) AND h GEQ 1_ AND H Ltfc 15 ThEN % NOT DP DUMP 
HEGIN — __ ; 



02591000 
02592000 

02593000 



NEE0CHECKAVAILNKS.C1 11];* TRUE J 

P-RINTCOfR); 

IF I LSS 



02594000 
02595000 
02^9 6 



THEN IF 0PERAND(9b+R*l) AND I N^Q "EEEE" _"EEEE" C 1 * 25 : 233 
THEN WRITf(PCOBL]'lTEH#DCTALthJ,OCTALChIhAUF(I »=96+R) ), 

OCT A LCLDHA L FCl J } )i 



02596100 

02596200 
0259 6 210 



end 

El SF 



PRINTCR+1,16); 
FRINTfO/36)? _ nP-IU-M-- 



02596220 
02596230 



IF NOT COMMON THEN 
BEGIN 
PQR lt*Q ______ 1 HHIlE MFML0CL13X-/ Dfl 



02596250 
02596300 
Q35*6_nn 



IF I«0 

BEGIN 
MSTARTi»MFMLOr.f n T rr; 



OR 0NEMIX»0 CRCDNEMIX/O AND ONEM_X-MF.Ml.UC- .J . L 13153 > THEN 

MAXLWKI8HLML0CCI3.FF1 



02597000 
02597500 
Q2596QQU 



HIGOOOisLINKLOCCI ].CF; LQGL1QD :s_lNKLUCC I J .FFi 
IF DUMPALLAVAIL ThE N PH lNT£MtND + l*M_ r ART )# 
MFND»-MAXLNK+2; ____| [_____ I _J____J__, A.\ ( HEMLCC E _J ■ [ _ J 1 p* 



02598100 

02599000 
Q26 QQ QQQ 



IF NEEOCHECKAVAiLNKS.Cl J13 THEN ' Ne_DCheCKAVA_LNKS, C47» l J l« 

not avalnkok; 

ri:13sQ THEN _ M1NLNK VALID 



02601000 
02601500 
02602000 



IF 1__Q THFN IF MFMI UPrm 



BEGIN 



02602500 
02602600 
0?60270n 



mstart:=minlkk; 
if ndmcpcode and 



NOT DQNTDbMpRT THEN EL*E 



02602720 
02602740 
02602760 



PRINTCDUMPD* 

IF NDMCPCODE AND DONTDUMPRT THEN (PRTMAX+1) 
ELSE KSTART) ; , 



END 

ELSE 

MSTARTJ-DIJMPP; 



02602780 
02602.00 
026Q2B20 



CASE MEMLOCCI3.C3S33 UF 

BEGIN 
LINKSGQQDl |_0_ 



02602840 
02602860 
2602 680 



BEGIN 

DUMPMEM0RYANDN0rE3TACKSCM3TART»MAXLNK>i 
PRINTCMAXLNKjMENU+I Ji 



02603000 
02604000 

02606000 



end; 

LINKSBROKEN! 

af_____ 



02607000 
02608000 
026Q9Q00 



% 1 



02610000 
026.1000 
02612000 



m 



>r 



DUMPMEMQRYAN0Nfjrt;5TACKS(Mc.fART,fHGG0UJ; 

IF HIGOOD Nllw LJvJtJOy THEN PR JM T C H i dOOU, LQGUOD ) ; 

QUMPMF MORY/>lMl)NOr£.STACK,S(I.UQOi'jn,iiM^XLNK J J 



02613000 
02614000 

oafttbooo. 



1 

2 
3 
4 

5 
6 
7 
8 
9 
10 

11 

12 



PRINT(MAXL\K»MEND+1); 

end; 

MAXLNKRAm X— 2 



02616000 
02618000 

n?6i9nno 



14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

3B 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



BEGIN 

DUMPHEMQRYANDNdTESTACi<S(iorART»HIGOQO if 
,PRlNTCmsCOOiME(ilU + Ui - 



02620000 
02621000 

02622000 



end; 

* 



% 3 
-%— 4- 



02623000 
02623100 
03 6 24000 



MSTARTBAQ: % 5 

BEGIN 

PRlNTCMSTART/LJtiijnu) 



OUMPMEM0RYANDNnTESTACKSCUO«OO0»MAXLNK)i 
PRINTCMAXLNK'MENO+I); 



0?62b000 
02626000 
2 6 2 700 



fmn; 



02628000 

02629000 
02630000 



ALLBAD: % 6 

printcmstart*weno + d; 

; i y 



end case statement; 
end memloc loop; 

IF DUMPALLAVAlL THEN PR I NT( MFNn + lfMAXCflft+l )i 



02631000 

02632000 

- 02h J3 Q Q0 



02634000 

02635000 

.0 263 5500 



end else 

print(dumpo#maxcqr + d; 
tf n ud uh p th e n 



02640000 
02642000 
?64 2100 



BEGIN 



NODUMPTOGlsTRUt; 

COMlaCQM AMD NUT BQQlE. AN( MA } I 



02642HO 
02642120 
02642130 



end; 

IF NOT COMMON THEiV 
BEGIN 



02642140 
02643000 
02644000 



getsortandlistmcprog; 
dumpmcpinfo; 

ggTS-Ottf iium tsttntbtmstcs; 



02645000 
02646000 

n^647nnn 



oumprograms; 
oumpcontrdlstacks; 

DUMP S FLFC TE DA RRAYS; 



02648000 
02649000 
02650000 



DUMPAUXMEM. 



end; 
EQpRnsi% 



02650100 
02651000 
026SUQP 



FILL CQLLATEC*] WITH 
QCTOOOlO 20 30405060 7* 

0CTinm2l3l4l5l6l7> 



02651500 
02651510 

■ O2651'-)20 



OCT 2021 222324252627* 
0CT3031323334353637* 
PC T4041W2 A 3 444 1 4 6 47 * 



02651530 
02651535 
02651540 



OCT5051525354555657' 
0CT6O61626364656667* 
nCT707l727374757677; 



02651550 
02651560 
0265 1 570 



49 
50 



61 
62 
53 
54 

56 
56 



WRITECPCPAGEn; 

WRITECP#COLHDR); 

FOR H»0 STEP I UNTIL 7 DO 



02651580 
02651590 
02651600 



BEGIN 



WRITECLlNEt*]»CGilNE* I); 
MQV E (C 0LLA TE C l 3 * U- N EE|]t 



[ Al t l )i 



writecp>2»linec*]>/ 
end; 

IF MULTI AND T OF I . C 30 it fl 1 GTR 1 THEN 



02651610 
02651620 

2651630 



02651640 
02651650 
02 6 51 70 



>r 



13 



16 
17 
18 



19 
21 



BEGIN 



IF NOT 
SEGI N 



REPEATING THEN 



repeating»*true; 

SPACECMDUMP,- lUXklXXJj 

XMlf.l.f»SFfMnilMP.«lt 



ENOi 

fixfid; 
RFLDan^TRuE; 



PRlNTCOMMONVALUES; 
WRITE(PtD8L3); WRI TE C P[UBL ] > ; 
WRITEfPfFTNT)? 



imextpage; 

if nodumptog then 

Nfir)llMPTnCi?*FaL.3Ej 



BEGIN 



COMlsCOM OR B001EANC384) 

mystackadr»»-j; 

MYSTATKADRla-l I 



END* 



end; 
E N n; * 



02O51710 
02651720 

oaa a i 7 3o 



02631740 
02651750 
0P651760 



026bl77Q 
O26bl780 
0?0'al790 



02651795 
02651800 



02^31820 
02651822 
2 651824 



go restart; 

% % % % % % CF TN.NFR HLUt:^ %%%tlk%ktt%%tl% X % % 



02651826 
02651826 
02651R28 



PRINTCOMMONVALUES; 
WRITE(PCD8L3); WR I TE (PCD8U ) * 
HRITF(P»FTNTH 



02651830 
02651840 
Q?6j?20QQ, 



ENU. 
ENUiENDi 



02652100 
02653000 
0?65400n 



LAST CARD ON 



25 



OCKUING TAPE 
0401*000 T. 



000 7? a, 



02ob6Q00 
99999999 

t»ooooooooonoo(i()Q)xefl^iR,i 



28 
29 

30 

31 " 
32 
33 




h 



LABEL OOOOOOOOOpRlNTEROOUalOOCC c* Oa JL'CTV Hi! Ad ; r I Lti S UUHCLF I LEsi) Y MBUL/ TSuUmP«-« 



OBJECT /READ 



B 
9 

10 
11 
12 



13 
14 

15 



16 
17 



19 
20 
21 
22 
23 
24 



25 
26 



27 
28 
29 

30 

31 ~ 

32 

33 



34 

35 

36 

37 " 

38 

39 

40 

41 

42 



43 
44 
»5 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 




M' 



